home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 97.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 35 36 3a 33 34 20 31 | 39 39 38 0a 3b 3b 3b 20 |:56:34 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 76 69 70 65 |s-20.3/l|isp/vipe|
|000000a0| 72 2f 76 69 70 65 72 2d | 63 6d 64 2e 65 6c 0a 3b |r/viper-|cmd.el.;|
|000000b0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000c0| 20 32 30 2e 34 20 22 45 | 6d 65 72 61 6c 64 22 20 | 20.4 "E|merald" |
|000000d0| 58 45 6d 61 63 73 20 20 | 4c 75 63 69 64 2e 0a 3b |XEmacs |Lucid..;|
|000000e0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000f0| 69 6f 6e 20 32 2e 32 35 | 20 58 45 6d 61 63 73 3b |ion 2.25| XEmacs;|
|00000100| 20 32 32 2d 4d 61 72 2d | 39 36 2e 0a 3b 3b 3b 20 | 22-Mar-|96..;;; |
|00000110| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000120| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000130| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000140| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000150| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 39 2e 0a 0a |t in Ema|cs 19...|
|00000160| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000170| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000180| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000190| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|000001a0| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|000001b0| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion).. | (stri|
|000001c0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001d0| 65 72 73 69 6f 6e 20 22 | 32 30 22 29 29 29 0a 20 |ersion "|20"))). |
|000001e0| 20 20 20 28 65 72 72 6f | 72 20 22 60 76 69 70 65 | (erro|r "`vipe|
|000001f0| 72 2d 63 6d 64 2e 65 6c | 27 20 77 61 73 20 63 6f |r-cmd.el|' was co|
|00000200| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|00000210| 20 32 30 22 29 29 0a 0a | 28 6f 72 20 28 62 6f 75 | 20"))..|(or (bou|
|00000220| 6e 64 70 20 27 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |ndp 'cur|rent-loa|
|00000230| 64 2d 6c 69 73 74 29 20 | 28 73 65 74 71 20 63 75 |d-list) |(setq cu|
|00000240| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 20 |rrent-lo|ad-list |
|00000250| 6e 69 6c 29 29 0a 0a 0a | 28 62 79 74 65 2d 63 6f |nil))...|(byte-co|
|00000260| 64 65 20 22 c0 c1 21 88 | c2 c3 21 88 c4 0d 42 15 |de "..!.|..!...B.|
|00000270| c6 0d 42 15 c7 0d 42 15 | c8 0d 42 15 c9 0d 42 15 |..B...B.|..B...B.|
|00000280| ca 0d 42 15 cb 0d 42 15 | cc 0d 42 15 cd 0d 42 15 |..B...B.|..B...B.|
|00000290| ce 0d 42 15 cf 0d 42 15 | d0 0d 42 15 c2 d1 21 88 |..B...B.|..B...!.|
|000002a0| c2 d2 21 88 c2 d3 21 88 | c2 d4 21 88 c2 d5 21 87 |..!...!.|..!...!.|
|000002b0| 22 20 5b 70 72 6f 76 69 | 64 65 20 76 69 70 65 72 |" [provi|de viper|
|000002c0| 2d 63 6d 64 20 72 65 71 | 75 69 72 65 20 61 64 76 |-cmd req|uire adv|
|000002d0| 69 63 65 20 76 69 70 65 | 72 2d 6d 69 6e 69 62 75 |ice vipe|r-minibu|
|000002e0| 66 66 65 72 2d 63 75 72 | 72 65 6e 74 2d 66 61 63 |ffer-cur|rent-fac|
|000002f0| 65 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |e curren|t-load-l|
|00000300| 69 73 74 20 76 69 70 65 | 72 2d 6d 69 6e 69 62 75 |ist vipe|r-minibu|
|00000310| 66 66 65 72 2d 69 6e 73 | 65 72 74 2d 66 61 63 65 |ffer-ins|ert-face|
|00000320| 20 76 69 70 65 72 2d 6d | 69 6e 69 62 75 66 66 65 | viper-m|inibuffe|
|00000330| 72 2d 76 69 2d 66 61 63 | 65 20 76 69 70 65 72 2d |r-vi-fac|e viper-|
|00000340| 6d 69 6e 69 62 75 66 66 | 65 72 2d 65 6d 61 63 73 |minibuff|er-emacs|
|00000350| 2d 66 61 63 65 20 76 69 | 70 65 72 2d 61 6c 77 61 |-face vi|per-alwa|
|00000360| 79 73 20 76 69 70 65 72 | 2d 6d 6f 64 65 2d 73 74 |ys viper|-mode-st|
|00000370| 72 69 6e 67 20 76 69 70 | 65 72 2d 63 75 73 74 6f |ring vip|er-custo|
|00000380| 6d 2d 66 69 6c 65 2d 6e | 61 6d 65 20 69 73 6f 2d |m-file-n|ame iso-|
|00000390| 61 63 63 65 6e 74 73 2d | 6d 6f 64 65 20 71 75 61 |accents-|mode qua|
|000003a0| 69 6c 2d 6d 6f 64 65 20 | 71 75 61 69 6c 2d 63 75 |il-mode |quail-cu|
|000003b0| 72 72 65 6e 74 2d 73 74 | 72 20 7a 6d 61 63 73 2d |rrent-st|r zmacs-|
|000003c0| 72 65 67 69 6f 6e 2d 73 | 74 61 79 73 20 6d 61 72 |region-s|tays mar|
|000003d0| 6b 2d 65 76 65 6e 2d 69 | 66 2d 69 6e 61 63 74 69 |k-even-i|f-inacti|
|000003e0| 76 65 20 76 69 70 65 72 | 2d 75 74 69 6c 20 76 69 |ve viper|-util vi|
|000003f0| 70 65 72 2d 6b 65 79 6d | 20 76 69 70 65 72 2d 6d |per-keym| viper-m|
|00000400| 6f 75 73 20 76 69 70 65 | 72 2d 6d 61 63 73 20 76 |ous vipe|r-macs v|
|00000410| 69 70 65 72 2d 65 78 5d | 20 32 29 0a 28 64 65 66 |iper-ex]| 2).(def|
|00000420| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 74 65 73 |alias 'v|iper-tes|
|00000430| 74 2d 63 6f 6d 2d 64 65 | 66 75 6e 20 27 28 6d 61 |t-com-de|fun '(ma|
|00000440| 63 72 6f 20 2e 20 23 5b | 28 6e 61 6d 65 29 20 22 |cro . #[|(name) "|
|00000450| c0 09 21 1a c3 5c 6e c4 | 50 21 1d c3 5c 6e c6 50 |..!..\n.|P!..\n.P|
|00000460| 21 1e 07 c8 0d c9 ca cb | cc 0e 07 45 44 46 2b 87 |!.......|...EDF+.|
|00000470| 22 20 5b 73 79 6d 62 6f | 6c 2d 6e 61 6d 65 20 6e |" [symbo|l-name n|
|00000480| 61 6d 65 20 73 6e 6d 20 | 69 6e 74 65 72 6e 20 22 |ame snm |intern "|
|00000490| 2d 70 22 20 6e 6d 2d 70 | 20 22 73 22 20 6e 6d 73 |-p" nm-p| "s" nms|
|000004a0| 20 64 65 66 75 6e 20 28 | 63 6f 6d 29 20 63 6f 6e | defun (|com) con|
|000004b0| 73 70 20 6d 65 6d 71 20 | 28 69 66 20 28 61 6e 64 |sp memq |(if (and|
|000004c0| 20 28 76 69 70 65 72 2d | 63 68 61 72 61 63 74 65 | (viper-|characte|
|000004d0| 72 70 20 63 6f 6d 29 20 | 28 3c 20 63 6f 6d 20 30 |rp com) |(< com 0|
|000004e0| 29 29 20 28 2d 20 63 6f | 6d 29 20 63 6f 6d 29 5d |)) (- co|m) com)]|
|000004f0| 20 37 5d 29 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 | 7])).(b|yte-code|
|00000500| 20 22 c0 11 c1 5c 6e 42 | 12 c1 87 22 20 5b 28 3f | "...\nB|..." [(?|
|00000510| 63 20 3f 64 20 3f 79 20 | 3f 5c 21 20 3f 5c 3d 20 |c ?d ?y |?\! ?\= |
|00000520| 3f 5c 23 20 3f 5c 3c 20 | 3f 5c 3e 20 3f 5c 22 29 |?\# ?\< |?\> ?\")|
|00000530| 20 76 69 70 65 72 2d 70 | 72 65 66 69 78 2d 63 6f | viper-p|refix-co|
|00000540| 6d 6d 61 6e 64 73 20 63 | 75 72 72 65 6e 74 2d 6c |mmands c|urrent-l|
|00000550| 6f 61 64 2d 6c 69 73 74 | 5d 20 32 29 0a 28 64 65 |oad-list|] 2).(de|
|00000560| 66 61 6c 69 61 73 20 27 | 76 69 70 65 72 2d 70 72 |falias '|viper-pr|
|00000570| 65 66 69 78 2d 63 6f 6d | 6d 61 6e 64 2d 70 20 23 |efix-com|mand-p #|
|00000580| 5b 28 63 6f 6d 29 20 22 | c0 09 21 ab 89 09 c2 57 |[(com) "|..!....W|
|00000590| ab 84 09 5b aa 81 09 0b | 73 3a 87 22 20 5b 76 69 |...[....|s:." [vi|
|000005a0| 70 65 72 2d 63 68 61 72 | 61 63 74 65 72 70 20 63 |per-char|acterp c|
|000005b0| 6f 6d 20 30 20 76 69 70 | 65 72 2d 70 72 65 66 69 |om 0 vip|er-prefi|
|000005c0| 78 2d 63 6f 6d 6d 61 6e | 64 73 5d 20 32 5d 29 0a |x-comman|ds] 2]).|
|000005d0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 11 c1 5c |(byte-co|de "...\|
|000005e0| 6e 42 12 c1 87 22 20 5b | 28 3f 63 20 3f 64 20 3f |nB..." [|(?c ?d ?|
|000005f0| 79 20 3f 5c 21 20 3f 5c | 3d 20 3f 5c 3c 20 3f 5c |y ?\! ?\|= ?\< ?\|
|00000600| 3e 20 3f 72 20 3f 52 29 | 20 76 69 70 65 72 2d 63 |> ?r ?R)| viper-c|
|00000610| 68 61 72 70 61 69 72 2d | 63 6f 6d 6d 61 6e 64 73 |harpair-|commands|
|00000620| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000630| 73 74 5d 20 32 29 0a 28 | 64 65 66 61 6c 69 61 73 |st] 2).(|defalias|
|00000640| 20 27 76 69 70 65 72 2d | 63 68 61 72 70 61 69 72 | 'viper-|charpair|
|00000650| 2d 63 6f 6d 6d 61 6e 64 | 2d 70 20 23 5b 28 63 6f |-command|-p #[(co|
|00000660| 6d 29 20 22 c0 09 21 ab | 89 09 c2 57 ab 84 09 5b |m) "..!.|...W...[|
|00000670| aa 81 09 0b 73 3a 87 22 | 20 5b 76 69 70 65 72 2d |....s:."| [viper-|
|00000680| 63 68 61 72 61 63 74 65 | 72 70 20 63 6f 6d 20 30 |characte|rp com 0|
|00000690| 20 76 69 70 65 72 2d 63 | 68 61 72 70 61 69 72 2d | viper-c|harpair-|
|000006a0| 63 6f 6d 6d 61 6e 64 73 | 5d 20 32 5d 29 0a 23 40 |commands|] 2]).#@|
|000006b0| 31 39 20 4d 6f 76 65 6d | 65 6e 74 20 63 6f 6d 6d |19 Movem|ent comm|
|000006c0| 61 6e 64 73 1f 0a 28 64 | 65 66 63 6f 6e 73 74 20 |ands..(d|efconst |
|000006d0| 76 69 70 65 72 2d 6d 6f | 76 65 6d 65 6e 74 2d 63 |viper-mo|vement-c|
|000006e0| 6f 6d 6d 61 6e 64 73 20 | 27 28 3f 62 20 3f 42 20 |ommands |'(?b ?B |
|000006f0| 3f 65 20 3f 45 20 3f 66 | 20 3f 46 20 3f 47 20 3f |?e ?E ?f| ?F ?G ?|
|00000700| 68 20 3f 48 20 3f 6a 20 | 3f 6b 20 3f 6c 20 3f 48 |h ?H ?j |?k ?l ?H|
|00000710| 20 3f 4d 20 3f 4c 20 3f | 6e 20 3f 74 20 3f 54 20 | ?M ?L ?|n ?t ?T |
|00000720| 3f 77 20 3f 57 20 3f 5c | 24 20 3f 5c 25 20 3f 5e |?w ?W ?\|$ ?\% ?^|
|00000730| 20 3f 5c 28 20 3f 5c 29 | 20 3f 5c 2d 20 3f 5c 2b | ?\( ?\)| ?\- ?\+|
|00000740| 20 3f 5c 7c 20 3f 5c 7b | 20 3f 5c 7d 20 3f 5c 5b | ?\| ?\{| ?\} ?\[|
|00000750| 20 3f 5c 5d 20 3f 5c 27 | 20 3f 5c 60 20 3f 5c 3b | ?\] ?\'| ?\` ?\;|
|00000760| 20 3f 5c 2c 20 3f 30 20 | 3f 5c 3f 20 3f 5c 2f 20 | ?\, ?0 |?\? ?\/ |
|00000770| 3f 5c 72 20 3f 5c 20 20 | 73 70 61 63 65 20 72 65 |?\r ?\ |space re|
|00000780| 74 75 72 6e 20 64 65 6c | 65 74 65 20 62 61 63 6b |turn del|ete back|
|00000790| 73 70 61 63 65 29 20 28 | 23 24 20 2e 20 31 37 31 |space) (|#$ . 171|
|000007a0| 35 29 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |5)).(def|alias 'v|
|000007b0| 69 70 65 72 2d 6d 6f 76 | 65 6d 65 6e 74 2d 63 6f |iper-mov|ement-co|
|000007c0| 6d 6d 61 6e 64 2d 70 20 | 23 5b 28 63 6f 6d 29 20 |mmand-p |#[(com) |
|000007d0| 22 c0 09 21 ab 89 09 c2 | 57 ab 84 09 5b aa 81 09 |"..!....|W...[...|
|000007e0| 0b 73 3a 87 22 20 5b 76 | 69 70 65 72 2d 63 68 61 |.s:." [v|iper-cha|
|000007f0| 72 61 63 74 65 72 70 20 | 63 6f 6d 20 30 20 76 69 |racterp |com 0 vi|
|00000800| 70 65 72 2d 6d 6f 76 65 | 6d 65 6e 74 2d 63 6f 6d |per-move|ment-com|
|00000810| 6d 61 6e 64 73 5d 20 32 | 5d 29 0a 28 62 79 74 65 |mands] 2|]).(byte|
|00000820| 2d 63 6f 64 65 20 22 c0 | 11 c1 5c 6e 42 12 c1 87 |-code ".|..\nB...|
|00000830| 22 20 5b 28 3f 31 20 3f | 32 20 3f 33 20 3f 34 20 |" [(?1 ?|2 ?3 ?4 |
|00000840| 3f 35 20 3f 36 20 3f 37 | 20 3f 38 20 3f 39 29 20 |?5 ?6 ?7| ?8 ?9) |
|00000850| 76 69 70 65 72 2d 64 69 | 67 69 74 2d 63 6f 6d 6d |viper-di|git-comm|
|00000860| 61 6e 64 73 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |ands cur|rent-loa|
|00000870| 64 2d 6c 69 73 74 5d 20 | 32 29 0a 28 64 65 66 61 |d-list] |2).(defa|
|00000880| 6c 69 61 73 20 27 76 69 | 70 65 72 2d 64 69 67 69 |lias 'vi|per-digi|
|00000890| 74 2d 63 6f 6d 6d 61 6e | 64 2d 70 20 23 5b 28 63 |t-comman|d-p #[(c|
|000008a0| 6f 6d 29 20 22 c0 09 21 | ab 89 09 c2 57 ab 84 09 |om) "..!|....W...|
|000008b0| 5b aa 81 09 0b 73 3a 87 | 22 20 5b 76 69 70 65 72 |[....s:.|" [viper|
|000008c0| 2d 63 68 61 72 61 63 74 | 65 72 70 20 63 6f 6d 20 |-charact|erp com |
|000008d0| 30 20 76 69 70 65 72 2d | 64 69 67 69 74 2d 63 6f |0 viper-|digit-co|
|000008e0| 6d 6d 61 6e 64 73 5d 20 | 32 5d 29 0a 28 62 79 74 |mmands] |2]).(byt|
|000008f0| 65 2d 63 6f 64 65 20 22 | c0 11 c1 5c 6e 42 12 c1 |e-code "|...\nB..|
|00000900| 87 22 20 5b 28 3f 63 20 | 3f 64 20 3f 43 20 3f 73 |." [(?c |?d ?C ?s|
|00000910| 20 3f 53 20 3f 44 20 3f | 5c 3e 20 3f 5c 3c 29 20 | ?S ?D ?|\> ?\<) |
|00000920| 76 69 70 65 72 2d 64 6f | 74 61 62 6c 65 2d 63 6f |viper-do|table-co|
|00000930| 6d 6d 61 6e 64 73 20 63 | 75 72 72 65 6e 74 2d 6c |mmands c|urrent-l|
|00000940| 6f 61 64 2d 6c 69 73 74 | 5d 20 32 29 0a 28 64 65 |oad-list|] 2).(de|
|00000950| 66 61 6c 69 61 73 20 27 | 76 69 70 65 72 2d 64 6f |falias '|viper-do|
|00000960| 74 61 62 6c 65 2d 63 6f | 6d 6d 61 6e 64 2d 70 20 |table-co|mmand-p |
|00000970| 23 5b 28 63 6f 6d 29 20 | 22 c0 09 21 ab 89 09 c2 |#[(com) |"..!....|
|00000980| 57 ab 84 09 5b aa 81 09 | 0b 73 3a 87 22 20 5b 76 |W...[...|.s:." [v|
|00000990| 69 70 65 72 2d 63 68 61 | 72 61 63 74 65 72 70 20 |iper-cha|racterp |
|000009a0| 63 6f 6d 20 30 20 76 69 | 70 65 72 2d 64 6f 74 61 |com 0 vi|per-dota|
|000009b0| 62 6c 65 2d 63 6f 6d 6d | 61 6e 64 73 5d 20 32 5d |ble-comm|ands] 2]|
|000009c0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 11 |).(byte-|code "..|
|000009d0| c1 5c 6e 42 12 c1 87 22 | 20 5b 28 3f 63 20 3f 43 |.\nB..."| [(?c ?C|
|000009e0| 20 3f 67 20 3f 71 20 3f | 73 29 20 76 69 70 65 72 | ?g ?q ?|s) viper|
|000009f0| 2d 68 61 73 68 2d 63 6f | 6d 6d 61 6e 64 73 20 63 |-hash-co|mmands c|
|00000a00| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000a10| 5d 20 32 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 2).(de|falias '|
|00000a20| 76 69 70 65 72 2d 68 61 | 73 68 2d 63 6f 6d 6d 61 |viper-ha|sh-comma|
|00000a30| 6e 64 2d 70 20 23 5b 28 | 63 6f 6d 29 20 22 c0 09 |nd-p #[(|com) "..|
|00000a40| 21 ab 89 09 c2 57 ab 84 | 09 5b aa 81 09 0b 73 3a |!....W..|.[....s:|
|00000a50| 87 22 20 5b 76 69 70 65 | 72 2d 63 68 61 72 61 63 |." [vipe|r-charac|
|00000a60| 74 65 72 70 20 63 6f 6d | 20 30 20 76 69 70 65 72 |terp com| 0 viper|
|00000a70| 2d 68 61 73 68 2d 63 6f | 6d 6d 61 6e 64 73 5d 20 |-hash-co|mmands] |
|00000a80| 32 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |2]).(byt|e-code "|
|00000a90| c0 11 c1 5c 6e 42 12 c1 | 87 22 20 5b 28 3f 64 20 |...\nB..|." [(?d |
|00000aa0| 3f 79 20 3f 59 20 3f 44 | 20 3f 70 20 3f 50 20 3f |?y ?Y ?D| ?p ?P ?|
|00000ab0| 78 20 3f 58 29 20 76 69 | 70 65 72 2d 72 65 67 73 |x ?X) vi|per-regs|
|00000ac0| 75 66 66 69 78 2d 63 6f | 6d 6d 61 6e 64 73 20 63 |uffix-co|mmands c|
|00000ad0| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000ae0| 5d 20 32 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 2).(de|falias '|
|00000af0| 76 69 70 65 72 2d 72 65 | 67 73 75 66 66 69 78 2d |viper-re|gsuffix-|
|00000b00| 63 6f 6d 6d 61 6e 64 2d | 70 20 23 5b 28 63 6f 6d |command-|p #[(com|
|00000b10| 29 20 22 c0 09 21 ab 89 | 09 c2 57 ab 84 09 5b aa |) "..!..|..W...[.|
|00000b20| 81 09 0b 73 3a 87 22 20 | 5b 76 69 70 65 72 2d 63 |...s:." |[viper-c|
|00000b30| 68 61 72 61 63 74 65 72 | 70 20 63 6f 6d 20 30 20 |haracter|p com 0 |
|00000b40| 76 69 70 65 72 2d 72 65 | 67 73 75 66 66 69 78 2d |viper-re|gsuffix-|
|00000b50| 63 6f 6d 6d 61 6e 64 73 | 5d 20 32 5d 29 0a 23 40 |commands|] 2]).#@|
|00000b60| 33 39 20 54 68 65 20 6c | 69 73 74 20 6f 66 20 61 |39 The l|ist of a|
|00000b70| 6c 6c 20 63 6f 6d 6d 61 | 6e 64 73 20 69 6e 20 56 |ll comma|nds in V|
|00000b80| 69 2d 73 74 61 74 65 2e | 1f 0a 28 64 65 66 63 6f |i-state.|..(defco|
|00000b90| 6e 73 74 20 76 69 70 65 | 72 2d 76 69 2d 63 6f 6d |nst vipe|r-vi-com|
|00000ba0| 6d 61 6e 64 73 20 28 61 | 70 70 65 6e 64 20 76 69 |mands (a|ppend vi|
|00000bb0| 70 65 72 2d 6d 6f 76 65 | 6d 65 6e 74 2d 63 6f 6d |per-move|ment-com|
|00000bc0| 6d 61 6e 64 73 20 76 69 | 70 65 72 2d 64 69 67 69 |mands vi|per-digi|
|00000bd0| 74 2d 63 6f 6d 6d 61 6e | 64 73 20 76 69 70 65 72 |t-comman|ds viper|
|00000be0| 2d 64 6f 74 61 62 6c 65 | 2d 63 6f 6d 6d 61 6e 64 |-dotable|-command|
|00000bf0| 73 20 76 69 70 65 72 2d | 63 68 61 72 70 61 69 72 |s viper-|charpair|
|00000c00| 2d 63 6f 6d 6d 61 6e 64 | 73 20 76 69 70 65 72 2d |-command|s viper-|
|00000c10| 68 61 73 68 2d 63 6f 6d | 6d 61 6e 64 73 20 76 69 |hash-com|mands vi|
|00000c20| 70 65 72 2d 70 72 65 66 | 69 78 2d 63 6f 6d 6d 61 |per-pref|ix-comma|
|00000c30| 6e 64 73 20 76 69 70 65 | 72 2d 72 65 67 73 75 66 |nds vipe|r-regsuf|
|00000c40| 66 69 78 2d 63 6f 6d 6d | 61 6e 64 73 29 20 28 23 |fix-comm|ands) (#|
|00000c50| 24 20 2e 20 32 39 31 35 | 29 29 0a 28 64 65 66 61 |$ . 2915|)).(defa|
|00000c60| 6c 69 61 73 20 27 76 69 | 70 65 72 2d 76 69 2d 63 |lias 'vi|per-vi-c|
|00000c70| 6f 6d 6d 61 6e 64 2d 70 | 20 23 5b 28 63 6f 6d 29 |ommand-p| #[(com)|
|00000c80| 20 22 c0 09 21 ab 89 09 | c2 57 ab 84 09 5b aa 81 | "..!...|.W...[..|
|00000c90| 09 0b 73 3a 87 22 20 5b | 76 69 70 65 72 2d 63 68 |..s:." [|viper-ch|
|00000ca0| 61 72 61 63 74 65 72 70 | 20 63 6f 6d 20 30 20 76 |aracterp| com 0 v|
|00000cb0| 69 70 65 72 2d 76 69 2d | 63 6f 6d 6d 61 6e 64 73 |iper-vi-|commands|
|00000cc0| 5d 20 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 2]).(d|efalias |
|00000cd0| 27 76 69 70 65 72 2d 61 | 66 74 65 72 2d 63 68 61 |'viper-a|fter-cha|
|00000ce0| 6e 67 65 2d 73 65 6e 74 | 69 6e 65 6c 20 23 5b 28 |nge-sent|inel #[(|
|00000cf0| 62 65 67 20 65 6e 64 20 | 6c 65 6e 29 20 22 08 89 |beg end |len) "..|
|00000d00| 19 ad 8e 09 40 5c 6e 0b | 0c 23 88 09 41 89 11 ac |....@\n.|.#..A...|
|00000d10| 73 c5 29 87 22 20 5b 76 | 69 70 65 72 2d 61 66 74 |s.)." [v|iper-aft|
|00000d20| 65 72 2d 63 68 61 6e 67 | 65 2d 66 75 6e 63 74 69 |er-chang|e-functi|
|00000d30| 6f 6e 73 20 6c 69 73 74 | 20 62 65 67 20 65 6e 64 |ons list| beg end|
|00000d40| 20 6c 65 6e 20 6e 69 6c | 5d 20 35 5d 29 0a 28 64 | len nil|] 5]).(d|
|00000d50| 65 66 61 6c 69 61 73 20 | 27 76 69 70 65 72 2d 62 |efalias |'viper-b|
|00000d60| 65 66 6f 72 65 2d 63 68 | 61 6e 67 65 2d 73 65 6e |efore-ch|ange-sen|
|00000d70| 74 69 6e 65 6c 20 23 5b | 28 62 65 67 20 65 6e 64 |tinel #[|(beg end|
|00000d80| 29 20 22 08 89 19 ad 8d | 09 40 5c 6e 0b 5c 22 88 |) ".....|.@\n.\".|
|00000d90| 09 41 89 11 ac 74 c4 29 | 87 22 20 5b 76 69 70 65 |.A...t.)|." [vipe|
|00000da0| 72 2d 62 65 66 6f 72 65 | 2d 63 68 61 6e 67 65 2d |r-before|-change-|
|00000db0| 66 75 6e 63 74 69 6f 6e | 73 20 6c 69 73 74 20 62 |function|s list b|
|00000dc0| 65 67 20 65 6e 64 20 6e | 69 6c 5d 20 34 5d 29 0a |eg end n|il] 4]).|
|00000dd0| 28 64 65 66 61 6c 69 61 | 73 20 27 76 69 70 65 72 |(defalia|s 'viper|
|00000de0| 2d 70 6f 73 74 2d 63 6f | 6d 6d 61 6e 64 2d 73 65 |-post-co|mmand-se|
|00000df0| 6e 74 69 6e 65 6c 20 23 | 5b 6e 69 6c 20 22 c0 c1 |ntinel #|[nil "..|
|00000e00| 21 87 22 20 5b 72 75 6e | 2d 68 6f 6f 6b 73 20 76 |!." [run|-hooks v|
|00000e10| 69 70 65 72 2d 70 6f 73 | 74 2d 63 6f 6d 6d 61 6e |iper-pos|t-comman|
|00000e20| 64 2d 68 6f 6f 6b 73 5d | 20 32 5d 29 0a 28 62 79 |d-hooks]| 2]).(by|
|00000e30| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4e c2 73 ac 85 |te-code |"..N.s..|
|00000e40| c3 c4 c0 5c 22 88 c5 c0 | c1 c6 23 87 22 20 5b 76 |...\"...|..#." [v|
|00000e50| 69 70 65 72 2d 70 6f 73 | 74 2d 63 6f 6d 6d 61 6e |iper-pos|t-comman|
|00000e60| 64 2d 73 65 6e 74 69 6e | 65 6c 20 62 79 74 65 2d |d-sentin|el byte-|
|00000e70| 6f 70 74 69 6d 69 7a 65 | 72 20 28 6e 69 6c 20 62 |optimize|r (nil b|
|00000e80| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 69 6e 6c 69 |yte-comp|ile-inli|
|00000e90| 6e 65 2d 65 78 70 61 6e | 64 29 20 65 72 72 6f 72 |ne-expan|d) error|
|00000ea0| 20 22 25 73 20 61 6c 72 | 65 61 64 79 20 68 61 73 | "%s alr|eady has|
|00000eb0| 20 61 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 | a byte-|optimize|
|00000ec0| 72 2c 20 63 61 6e 27 74 | 20 6d 61 6b 65 20 69 74 |r, can't| make it|
|00000ed0| 20 69 6e 6c 69 6e 65 22 | 20 70 75 74 20 62 79 74 | inline"| put byt|
|00000ee0| 65 2d 63 6f 6d 70 69 6c | 65 2d 69 6e 6c 69 6e 65 |e-compil|e-inline|
|00000ef0| 2d 65 78 70 61 6e 64 5d | 20 34 29 0a 28 64 65 66 |-expand]| 4).(def|
|00000f00| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 70 72 65 |alias 'v|iper-pre|
|00000f10| 2d 63 6f 6d 6d 61 6e 64 | 2d 73 65 6e 74 69 6e 65 |-command|-sentine|
|00000f20| 6c 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 87 22 20 5b |l #[nil |"..!." [|
|00000f30| 72 75 6e 2d 68 6f 6f 6b | 73 20 76 69 70 65 72 2d |run-hook|s viper-|
|00000f40| 70 72 65 2d 63 6f 6d 6d | 61 6e 64 2d 68 6f 6f 6b |pre-comm|and-hook|
|00000f50| 73 5d 20 32 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |s] 2]).(|byte-cod|
|00000f60| 65 20 22 c0 c1 4e c2 73 | ac 85 c3 c4 c0 5c 22 88 |e "..N.s|.....\".|
|00000f70| c5 c0 c1 c6 23 87 22 20 | 5b 76 69 70 65 72 2d 70 |....#." |[viper-p|
|00000f80| 72 65 2d 63 6f 6d 6d 61 | 6e 64 2d 73 65 6e 74 69 |re-comma|nd-senti|
|00000f90| 6e 65 6c 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |nel byte|-optimiz|
|00000fa0| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|00000fb0| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00000fc0| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|00000fd0| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|00000fe0| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|00000ff0| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|00001000| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|00001010| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00001020| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|00001030| 76 69 70 65 72 2d 69 6e | 73 65 72 74 2d 73 74 61 |viper-in|sert-sta|
|00001040| 74 65 2d 70 6f 73 74 2d | 63 6f 6d 6d 61 6e 64 2d |te-post-|command-|
|00001050| 73 65 6e 74 69 6e 65 6c | 20 23 5b 6e 69 6c 20 22 |sentinel| #[nil "|
|00001060| 08 c1 73 ab 8b 5c 6e ab | 88 60 5c 6e 59 ab 83 c3 |..s..\n.|.`\nY...|
|00001070| 20 14 08 c5 61 ab ab 0e | 06 3b ac 9c c7 20 0e 08 | ...a...|.;... ..|
|00001080| 98 ac 95 0e 09 ab 88 ca | cb cc 20 5c 22 41 aa 87 |........|.. \"A..|
|00001090| cd ce cf 20 cb 5c 22 21 | 16 06 0e 06 3b ab 85 d0 |... .\"!|....;...|
|000010a0| 0e 08 21 88 0e 11 d2 61 | ad 9a 0e 13 a8 ad 95 d4 |..!....a|........|
|000010b0| 5c 6e 21 ad 90 d5 5c 6e | 21 ad 8b 5c 6e 0e 13 56 |\n!...\n|!..\n..V|
|000010c0| ad 85 d6 5c 6e 0e 13 5c | 22 87 22 20 5b 76 69 70 |...\n..\|"." [vip|
|000010d0| 65 72 2d 63 75 72 72 65 | 6e 74 2d 73 74 61 74 65 |er-curre|nt-state|
|000010e0| 20 28 69 6e 73 65 72 74 | 2d 73 74 61 74 65 20 72 | (insert|-state r|
|000010f0| 65 70 6c 61 63 65 2d 73 | 74 61 74 65 29 20 76 69 |eplace-s|tate) vi|
|00001100| 70 65 72 2d 69 6e 73 65 | 72 74 2d 70 6f 69 6e 74 |per-inse|rt-point|
|00001110| 20 70 6f 69 6e 74 2d 6d | 61 72 6b 65 72 20 76 69 | point-m|arker vi|
|00001120| 70 65 72 2d 6c 61 73 74 | 2d 70 6f 73 6e 2d 77 68 |per-last|-posn-wh|
|00001130| 69 6c 65 2d 69 6e 2d 69 | 6e 73 65 72 74 2d 73 74 |ile-in-i|nsert-st|
|00001140| 61 74 65 20 69 6e 73 65 | 72 74 2d 73 74 61 74 65 |ate inse|rt-state|
|00001150| 20 76 69 70 65 72 2d 73 | 61 76 65 64 2d 63 75 72 | viper-s|aved-cur|
|00001160| 73 6f 72 2d 63 6f 6c 6f | 72 20 76 69 70 65 72 2d |sor-colo|r viper-|
|00001170| 67 65 74 2d 63 75 72 73 | 6f 72 2d 63 6f 6c 6f 72 |get-curs|or-color|
|00001180| 20 76 69 70 65 72 2d 69 | 6e 73 65 72 74 2d 73 74 | viper-i|nsert-st|
|00001190| 61 74 65 2d 63 75 72 73 | 6f 72 2d 63 6f 6c 6f 72 |ate-curs|or-color|
|000011a0| 20 76 69 70 65 72 2d 65 | 6d 61 63 73 2d 70 20 61 | viper-e|macs-p a|
|000011b0| 73 73 6f 63 20 63 75 72 | 73 6f 72 2d 63 6f 6c 6f |ssoc cur|sor-colo|
|000011c0| 72 20 66 72 61 6d 65 2d | 70 61 72 61 6d 65 74 65 |r frame-|paramete|
|000011d0| 72 73 20 63 6f 6c 6f 72 | 2d 69 6e 73 74 61 6e 63 |rs color|-instanc|
|000011e0| 65 2d 6e 61 6d 65 20 66 | 72 61 6d 65 2d 70 72 6f |e-name f|rame-pro|
|000011f0| 70 65 72 74 79 20 73 65 | 6c 65 63 74 65 64 2d 66 |perty se|lected-f|
|00001200| 72 61 6d 65 20 76 69 70 | 65 72 2d 63 68 61 6e 67 |rame vip|er-chang|
|00001210| 65 2d 63 75 72 73 6f 72 | 2d 63 6f 6c 6f 72 20 74 |e-cursor|-color t|
|00001220| 68 69 73 2d 63 6f 6d 6d | 61 6e 64 20 64 61 62 62 |his-comm|and dabb|
|00001230| 72 65 76 2d 65 78 70 61 | 6e 64 20 76 69 70 65 72 |rev-expa|nd viper|
|00001240| 2d 70 72 65 2d 63 6f 6d | 6d 61 6e 64 2d 70 6f 69 |-pre-com|mand-poi|
|00001250| 6e 74 20 6d 61 72 6b 65 | 72 70 20 6d 61 72 6b 65 |nt marke|rp marke|
|00001260| 72 2d 70 6f 73 69 74 69 | 6f 6e 20 76 69 70 65 72 |r-positi|on viper|
|00001270| 2d 6d 6f 76 65 2d 6d 61 | 72 6b 65 72 2d 6c 6f 63 |-move-ma|rker-loc|
|00001280| 61 6c 6c 79 5d 20 34 5d | 29 0a 28 62 79 74 65 2d |ally] 4]|).(byte-|
|00001290| 63 6f 64 65 20 22 c0 c1 | 4e c2 73 ac 85 c3 c4 c0 |code "..|N.s.....|
|000012a0| 5c 22 88 c5 c0 c1 c6 23 | 87 22 20 5b 76 69 70 65 |\".....#|." [vipe|
|000012b0| 72 2d 69 6e 73 65 72 74 | 2d 73 74 61 74 65 2d 70 |r-insert|-state-p|
|000012c0| 6f 73 74 2d 63 6f 6d 6d | 61 6e 64 2d 73 65 6e 74 |ost-comm|and-sent|
|000012d0| 69 6e 65 6c 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |inel byt|e-optimi|
|000012e0| 7a 65 72 20 28 6e 69 6c | 20 62 79 74 65 2d 63 6f |zer (nil| byte-co|
|000012f0| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00001300| 61 6e 64 29 20 65 72 72 | 6f 72 20 22 25 73 20 61 |and) err|or "%s a|
|00001310| 6c 72 65 61 64 79 20 68 | 61 73 20 61 20 62 79 74 |lready h|as a byt|
|00001320| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 2c 20 63 61 6e |e-optimi|zer, can|
|00001330| 27 74 20 6d 61 6b 65 20 | 69 74 20 69 6e 6c 69 6e |'t make |it inlin|
|00001340| 65 22 20 70 75 74 20 62 | 79 74 65 2d 63 6f 6d 70 |e" put b|yte-comp|
|00001350| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00001360| 64 5d 20 34 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |d] 4).(d|efalias |
|00001370| 27 76 69 70 65 72 2d 69 | 6e 73 65 72 74 2d 73 74 |'viper-i|nsert-st|
|00001380| 61 74 65 2d 70 72 65 2d | 63 6f 6d 6d 61 6e 64 2d |ate-pre-|command-|
|00001390| 73 65 6e 74 69 6e 65 6c | 20 23 5b 6e 69 6c 20 22 |sentinel| #[nil "|
|000013a0| 08 c1 73 ac 8c c2 0b 21 | c4 73 ac 85 c5 0e 06 21 |..s....!|.s.....!|
|000013b0| 88 08 c7 61 ad 93 c8 0e | 09 21 ad 8d ca 0e 09 21 |...a....|.!.....!|
|000013c0| ad 87 ca 0e 09 21 89 16 | 0b 87 22 20 5b 74 68 69 |.....!..|.." [thi|
|000013d0| 73 2d 63 6f 6d 6d 61 6e | 64 20 28 73 65 6c 66 2d |s-comman|d (self-|
|000013e0| 69 6e 73 65 72 74 2d 63 | 6f 6d 6d 61 6e 64 29 20 |insert-c|ommand) |
|000013f0| 76 69 70 65 72 2d 65 76 | 65 6e 74 2d 6b 65 79 20 |viper-ev|ent-key |
|00001400| 6c 61 73 74 2d 63 6f 6d | 6d 61 6e 64 2d 65 76 65 |last-com|mand-eve|
|00001410| 6e 74 20 28 75 70 20 64 | 6f 77 6e 20 6c 65 66 74 |nt (up d|own left|
|00001420| 20 72 69 67 68 74 20 28 | 6d 65 74 61 20 66 29 20 | right (|meta f) |
|00001430| 28 6d 65 74 61 20 62 29 | 20 28 63 6f 6e 74 72 6f |(meta b)| (contro|
|00001440| 6c 20 6e 29 20 28 63 6f | 6e 74 72 6f 6c 20 70 29 |l n) (co|ntrol p)|
|00001450| 20 28 63 6f 6e 74 72 6f | 6c 20 66 29 20 28 63 6f | (contro|l f) (co|
|00001460| 6e 74 72 6f 6c 20 62 29 | 29 20 76 69 70 65 72 2d |ntrol b)|) viper-|
|00001470| 63 68 61 6e 67 65 2d 63 | 75 72 73 6f 72 2d 63 6f |change-c|ursor-co|
|00001480| 6c 6f 72 20 76 69 70 65 | 72 2d 73 61 76 65 64 2d |lor vipe|r-saved-|
|00001490| 63 75 72 73 6f 72 2d 63 | 6f 6c 6f 72 20 64 61 62 |cursor-c|olor dab|
|000014a0| 62 72 65 76 2d 65 78 70 | 61 6e 64 20 6d 61 72 6b |brev-exp|and mark|
|000014b0| 65 72 70 20 76 69 70 65 | 72 2d 69 6e 73 65 72 74 |erp vipe|r-insert|
|000014c0| 2d 70 6f 69 6e 74 20 6d | 61 72 6b 65 72 2d 70 6f |-point m|arker-po|
|000014d0| 73 69 74 69 6f 6e 20 76 | 69 70 65 72 2d 70 72 65 |sition v|iper-pre|
|000014e0| 2d 63 6f 6d 6d 61 6e 64 | 2d 70 6f 69 6e 74 5d 20 |-command|-point] |
|000014f0| 32 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |2]).(byt|e-code "|
|00001500| c0 c1 4e c2 73 ac 85 c3 | c4 c0 5c 22 88 c5 c0 c1 |..N.s...|..\"....|
|00001510| c6 23 87 22 20 5b 76 69 | 70 65 72 2d 69 6e 73 65 |.#." [vi|per-inse|
|00001520| 72 74 2d 73 74 61 74 65 | 2d 70 72 65 2d 63 6f 6d |rt-state|-pre-com|
|00001530| 6d 61 6e 64 2d 73 65 6e | 74 69 6e 65 6c 20 62 79 |mand-sen|tinel by|
|00001540| 74 65 2d 6f 70 74 69 6d | 69 7a 65 72 20 28 6e 69 |te-optim|izer (ni|
|00001550| 6c 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |l byte-c|ompile-i|
|00001560| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 29 20 65 72 |nline-ex|pand) er|
|00001570| 72 6f 72 20 22 25 73 20 | 61 6c 72 65 61 64 79 20 |ror "%s |already |
|00001580| 68 61 73 20 61 20 62 79 | 74 65 2d 6f 70 74 69 6d |has a by|te-optim|
|00001590| 69 7a 65 72 2c 20 63 61 | 6e 27 74 20 6d 61 6b 65 |izer, ca|n't make|
|000015a0| 20 69 74 20 69 6e 6c 69 | 6e 65 22 20 70 75 74 20 | it inli|ne" put |
|000015b0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|000015c0| 69 6e 65 2d 65 78 70 61 | 6e 64 5d 20 34 29 0a 28 |ine-expa|nd] 4).(|
|000015d0| 64 65 66 61 6c 69 61 73 | 20 27 76 69 70 65 72 2d |defalias| 'viper-|
|000015e0| 52 2d 73 74 61 74 65 2d | 70 6f 73 74 2d 63 6f 6d |R-state-|post-com|
|000015f0| 6d 61 6e 64 2d 73 65 6e | 74 69 6e 65 6c 20 23 5b |mand-sen|tinel #[|
|00001600| 6e 69 6c 20 22 c0 09 21 | 60 58 ab 8b 60 c2 09 21 |nil "..!|`X..`..!|
|00001610| 58 ab 84 c3 0c 21 87 c3 | c5 09 c6 5c 22 21 87 22 |X....!..|...\"!."|
|00001620| 20 5b 76 69 70 65 72 2d | 6f 76 65 72 6c 61 79 2d | [viper-|overlay-|
|00001630| 73 74 61 72 74 20 76 69 | 70 65 72 2d 72 65 70 6c |start vi|per-repl|
|00001640| 61 63 65 2d 6f 76 65 72 | 6c 61 79 20 76 69 70 65 |ace-over|lay vipe|
|00001650| 72 2d 6f 76 65 72 6c 61 | 79 2d 65 6e 64 20 76 69 |r-overla|y-end vi|
|00001660| 70 65 72 2d 63 68 61 6e | 67 65 2d 63 75 72 73 6f |per-chan|ge-curso|
|00001670| 72 2d 63 6f 6c 6f 72 20 | 76 69 70 65 72 2d 72 65 |r-color |viper-re|
|00001680| 70 6c 61 63 65 2d 6f 76 | 65 72 6c 61 79 2d 63 75 |place-ov|erlay-cu|
|00001690| 72 73 6f 72 2d 63 6f 6c | 6f 72 20 76 69 70 65 72 |rsor-col|or viper|
|000016a0| 2d 6f 76 65 72 6c 61 79 | 2d 67 65 74 20 76 69 70 |-overlay|-get vip|
|000016b0| 65 72 2d 63 75 72 73 6f | 72 2d 63 6f 6c 6f 72 5d |er-curso|r-color]|
|000016c0| 20 34 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 | 4]).(by|te-code |
|000016d0| 22 c0 c1 4e c2 73 ac 85 | c3 c4 c0 5c 22 88 c5 c0 |"..N.s..|...\"...|
|000016e0| c1 c6 23 87 22 20 5b 76 | 69 70 65 72 2d 52 2d 73 |..#." [v|iper-R-s|
|000016f0| 74 61 74 65 2d 70 6f 73 | 74 2d 63 6f 6d 6d 61 6e |tate-pos|t-comman|
|00001700| 64 2d 73 65 6e 74 69 6e | 65 6c 20 62 79 74 65 2d |d-sentin|el byte-|
|00001710| 6f 70 74 69 6d 69 7a 65 | 72 20 28 6e 69 6c 20 62 |optimize|r (nil b|
|00001720| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 69 6e 6c 69 |yte-comp|ile-inli|
|00001730| 6e 65 2d 65 78 70 61 6e | 64 29 20 65 72 72 6f 72 |ne-expan|d) error|
|00001740| 20 22 25 73 20 61 6c 72 | 65 61 64 79 20 68 61 73 | "%s alr|eady has|
|00001750| 20 61 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 | a byte-|optimize|
|00001760| 72 2c 20 63 61 6e 27 74 | 20 6d 61 6b 65 20 69 74 |r, can't| make it|
|00001770| 20 69 6e 6c 69 6e 65 22 | 20 70 75 74 20 62 79 74 | inline"| put byt|
|00001780| 65 2d 63 6f 6d 70 69 6c | 65 2d 69 6e 6c 69 6e 65 |e-compil|e-inline|
|00001790| 2d 65 78 70 61 6e 64 5d | 20 34 29 0a 28 64 65 66 |-expand]| 4).(def|
|000017a0| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 72 65 70 |alias 'v|iper-rep|
|000017b0| 6c 61 63 65 2d 73 74 61 | 74 65 2d 70 72 65 2d 63 |lace-sta|te-pre-c|
|000017c0| 6f 6d 6d 61 6e 64 2d 73 | 65 6e 74 69 6e 65 6c 20 |ommand-s|entinel |
|000017d0| 23 5b 6e 69 6c 20 22 08 | c1 73 ae 8e c2 0b 21 c4 |#[nil ".|.s....!.|
|000017e0| 73 ae 87 c5 c6 0e 07 c8 | 5c 22 21 87 22 20 5b 74 |s.......|\"!." [t|
|000017f0| 68 69 73 2d 63 6f 6d 6d | 61 6e 64 20 28 73 65 6c |his-comm|and (sel|
|00001800| 66 2d 69 6e 73 65 72 74 | 2d 63 6f 6d 6d 61 6e 64 |f-insert|-command|
|00001810| 29 20 76 69 70 65 72 2d | 65 76 65 6e 74 2d 6b 65 |) viper-|event-ke|
|00001820| 79 20 6c 61 73 74 2d 63 | 6f 6d 6d 61 6e 64 2d 65 |y last-c|ommand-e|
|00001830| 76 65 6e 74 20 28 75 70 | 20 64 6f 77 6e 20 6c 65 |vent (up| down le|
|00001840| 66 74 20 72 69 67 68 74 | 20 28 6d 65 74 61 20 66 |ft right| (meta f|
|00001850| 29 20 28 6d 65 74 61 20 | 62 29 20 28 63 6f 6e 74 |) (meta |b) (cont|
|00001860| 72 6f 6c 20 6e 29 20 28 | 63 6f 6e 74 72 6f 6c 20 |rol n) (|control |
|00001870| 70 29 20 28 63 6f 6e 74 | 72 6f 6c 20 66 29 20 28 |p) (cont|rol f) (|
|00001880| 63 6f 6e 74 72 6f 6c 20 | 62 29 29 20 76 69 70 65 |control |b)) vipe|
|00001890| 72 2d 63 68 61 6e 67 65 | 2d 63 75 72 73 6f 72 2d |r-change|-cursor-|
|000018a0| 63 6f 6c 6f 72 20 76 69 | 70 65 72 2d 6f 76 65 72 |color vi|per-over|
|000018b0| 6c 61 79 2d 67 65 74 20 | 76 69 70 65 72 2d 72 65 |lay-get |viper-re|
|000018c0| 70 6c 61 63 65 2d 6f 76 | 65 72 6c 61 79 20 76 69 |place-ov|erlay vi|
|000018d0| 70 65 72 2d 63 75 72 73 | 6f 72 2d 63 6f 6c 6f 72 |per-curs|or-color|
|000018e0| 5d 20 34 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |] 4]).(b|yte-code|
|000018f0| 20 22 c0 c1 4e c2 73 ac | 85 c3 c4 c0 5c 22 88 c5 | "..N.s.|....\"..|
|00001900| c0 c1 c6 23 87 22 20 5b | 76 69 70 65 72 2d 72 65 |...#." [|viper-re|
|00001910| 70 6c 61 63 65 2d 73 74 | 61 74 65 2d 70 72 65 2d |place-st|ate-pre-|
|00001920| 63 6f 6d 6d 61 6e 64 2d | 73 65 6e 74 69 6e 65 6c |command-|sentinel|
|00001930| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 20 | byte-op|timizer |
|00001940| 28 6e 69 6c 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |(nil byt|e-compil|
|00001950| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 29 |e-inline|-expand)|
|00001960| 20 65 72 72 6f 72 20 22 | 25 73 20 61 6c 72 65 61 | error "|%s alrea|
|00001970| 64 79 20 68 61 73 20 61 | 20 62 79 74 65 2d 6f 70 |dy has a| byte-op|
|00001980| 74 69 6d 69 7a 65 72 2c | 20 63 61 6e 27 74 20 6d |timizer,| can't m|
|00001990| 61 6b 65 20 69 74 20 69 | 6e 6c 69 6e 65 22 20 70 |ake it i|nline" p|
|000019a0| 75 74 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |ut byte-|compile-|
|000019b0| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 5d 20 34 |inline-e|xpand] 4|
|000019c0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 69 70 |).(defal|ias 'vip|
|000019d0| 65 72 2d 72 65 70 6c 61 | 63 65 2d 73 74 61 74 65 |er-repla|ce-state|
|000019e0| 2d 70 6f 73 74 2d 63 6f | 6d 6d 61 6e 64 2d 73 65 |-post-co|mmand-se|
|000019f0| 6e 74 69 6e 65 6c 20 23 | 5b 6e 69 6c 20 22 08 c1 |ntinel #|[nil "..|
|00001a00| 73 ac 87 c2 c3 0c c5 5c | 22 21 88 0e 06 c7 61 ab |s......\|"!....a.|
|00001a10| e4 c8 0c 21 1e 09 8a 0e | 5c 6e 62 88 cb 0e 0c cd |...!....|\nb.....|
|00001a20| ce 20 0e 5c 6e 5c 22 5e | cd 60 cf d0 21 5c 22 5e |. .\n\"^|.`..!\"^|
|00001a30| 5d 16 0c d1 0e 0c 21 88 | cb 16 0c 0e 5c 6e c8 0c |].....!.|....\n..|
|00001a40| 21 55 ab 83 d2 20 88 29 | 60 d3 0c 21 0e 09 1e 10 |!U... .)|`..!....|
|00001a50| 1e 14 89 1e 15 0e 14 0e | 10 5e 59 ad 88 0e 14 0e |........|.^Y.....|
|00001a60| 10 5d 0e 15 59 2b ad 90 | 0e 06 c7 61 ab 85 c2 0e |.]..Y+..|...a....|
|00001a70| 16 21 88 d7 20 89 16 5c | 6e 29 87 d2 20 87 22 20 |.!.. ..\|n).. ." |
|00001a80| 5b 74 68 69 73 2d 63 6f | 6d 6d 61 6e 64 20 28 73 |[this-co|mmand (s|
|00001a90| 65 6c 66 2d 69 6e 73 65 | 72 74 2d 63 6f 6d 6d 61 |elf-inse|rt-comma|
|00001aa0| 6e 64 29 20 76 69 70 65 | 72 2d 63 68 61 6e 67 65 |nd) vipe|r-change|
|00001ab0| 2d 63 75 72 73 6f 72 2d | 63 6f 6c 6f 72 20 76 69 |-cursor-|color vi|
|00001ac0| 70 65 72 2d 6f 76 65 72 | 6c 61 79 2d 67 65 74 20 |per-over|lay-get |
|00001ad0| 76 69 70 65 72 2d 72 65 | 70 6c 61 63 65 2d 6f 76 |viper-re|place-ov|
|00001ae0| 65 72 6c 61 79 20 76 69 | 70 65 72 2d 63 75 72 73 |erlay vi|per-curs|
|00001af0| 6f 72 2d 63 6f 6c 6f 72 | 20 76 69 70 65 72 2d 63 |or-color| viper-c|
|00001b00| 75 72 72 65 6e 74 2d 73 | 74 61 74 65 20 72 65 70 |urrent-s|tate rep|
|00001b10| 6c 61 63 65 2d 73 74 61 | 74 65 20 76 69 70 65 72 |lace-sta|te viper|
|00001b20| 2d 6f 76 65 72 6c 61 79 | 2d 65 6e 64 20 72 65 70 |-overlay|-end rep|
|00001b30| 6c 61 63 65 2d 62 6f 75 | 6e 64 61 72 79 20 76 69 |lace-bou|ndary vi|
|00001b40| 70 65 72 2d 6c 61 73 74 | 2d 70 6f 73 6e 2d 69 6e |per-last|-posn-in|
|00001b50| 2d 72 65 70 6c 61 63 65 | 2d 72 65 67 69 6f 6e 20 |-replace|-region |
|00001b60| 30 20 76 69 70 65 72 2d | 72 65 70 6c 61 63 65 2d |0 viper-|replace-|
|00001b70| 63 68 61 72 73 2d 74 6f | 2d 64 65 6c 65 74 65 20 |chars-to|-delete |
|00001b80| 76 69 70 65 72 2d 63 68 | 61 72 73 2d 69 6e 2d 72 |viper-ch|ars-in-r|
|00001b90| 65 67 69 6f 6e 20 76 69 | 70 65 72 2d 72 65 70 6c |egion vi|per-repl|
|00001ba0| 61 63 65 2d 65 6e 64 20 | 76 69 70 65 72 2d 6c 69 |ace-end |viper-li|
|00001bb0| 6e 65 2d 70 6f 73 20 65 | 6e 64 20 64 65 6c 65 74 |ne-pos e|nd delet|
|00001bc0| 65 2d 63 68 61 72 20 76 | 69 70 65 72 2d 66 69 6e |e-char v|iper-fin|
|00001bd0| 69 73 68 2d 63 68 61 6e | 67 65 20 76 69 70 65 72 |ish-chan|ge viper|
|00001be0| 2d 6f 76 65 72 6c 61 79 | 2d 73 74 61 72 74 20 62 |-overlay|-start b|
|00001bf0| 65 67 20 70 6f 73 20 76 | 69 70 65 72 2d 72 65 70 |eg pos v|iper-rep|
|00001c00| 6c 61 63 65 2d 6f 76 65 | 72 6c 61 79 2d 63 75 72 |lace-ove|rlay-cur|
|00001c10| 73 6f 72 2d 63 6f 6c 6f | 72 20 70 6f 69 6e 74 2d |sor-colo|r point-|
|00001c20| 6d 61 72 6b 65 72 5d 20 | 37 5d 29 0a 28 64 65 66 |marker] |7]).(def|
|00001c30| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 63 68 61 |alias 'v|iper-cha|
|00001c40| 6e 67 65 2d 73 74 61 74 | 65 20 23 5b 28 6e 65 77 |nge-stat|e #[(new|
|00001c50| 2d 73 74 61 74 65 29 20 | 22 c0 c1 c2 5c 22 88 c3 |-state) |"...\"..|
|00001c60| c1 c2 5c 22 88 c0 c4 c5 | 5c 22 88 c3 c4 c5 c6 23 |..\"....|\".....#|
|00001c70| 88 c7 c8 c9 5c 22 88 c7 | ca cb 5c 22 88 cc 16 0d |....\"..|..\"....|
|00001c80| 0e 0e cf 61 83 b9 00 0e | 10 d1 b6 83 db 00 0e 10 |...a....|........|
|00001c90| d2 73 ab 8e 0e 13 ab 8a | 60 0e 13 59 ab 84 d4 20 |.s......|`..Y... |
|00001ca0| 16 15 0e 10 d6 61 ab ab | 0e 17 3b ac 9c d8 20 0e |.....a..|..;... .|
|00001cb0| 19 98 ac 95 0e 1a ab 88 | db dc dd 20 5c 22 41 aa |........|... \"A.|
|00001cc0| 87 de df e0 20 dc 5c 22 | 21 16 17 0e 17 3b ab 85 |.... .\"|!....;..|
|00001cd0| e1 0e 19 21 88 0e 5c 22 | e3 61 ab 9f 0e 24 a8 ab |...!..\"|.a...$..|
|00001ce0| 9a e5 0e 13 21 ab 94 e6 | 0e 13 21 ab 8e 0e 13 0e |....!...|..!.....|
|00001cf0| 24 56 ab 87 e7 0e 13 0e | 24 5c 22 88 e8 e9 ea 8f |$V......|$\".....|
|00001d00| 88 0e 2b 47 ec 56 ab 86 | ed 0e 2b ee 5c 22 88 0e |..+G.V..|..+.\"..|
|00001d10| 2f ab ab 6e ac a8 f0 f1 | 21 88 aa a2 0e 0e f2 73 |/..n....|!......s|
|00001d20| ab 9c 0e 10 f3 73 ab 85 | e7 d3 60 5c 22 88 e7 d5 |.....s..|..`\"...|
|00001d30| 60 5c 22 88 f4 c8 c9 c6 | 23 88 f4 ca cb c6 23 88 |`\".....|#.....#.|
|00001d40| 0e 0e cf 61 ab 8f cc 1e | 35 f6 f7 21 ab 84 0e 35 |...a....|5..!...5|
|00001d50| 16 37 29 aa a0 0e 38 ab | 8f c6 1e 35 f6 f7 21 ab |.7)...8.|...5..!.|
|00001d60| 84 0e 35 16 37 29 aa 8d | cc 1e 35 f6 f7 21 ab 84 |..5.7)..|..5..!..|
|00001d70| 0e 35 16 37 29 0e 0e cf | 61 ab 86 f9 cc 21 88 aa |.5.7)...|a....!..|
|00001d80| 8e 0e 3a ab 86 f9 c6 21 | 88 aa 84 f9 cc 21 88 0e |..:....!|.....!..|
|00001d90| 0e 16 10 fb 20 88 fc 20 | 88 fd 0e 0e 21 88 fe 0e |.... .. |....!...|
|00001da0| 0e 21 88 ff 20 87 22 20 | 5b 72 65 6d 6f 76 65 2d |.!.. ." |[remove-|
|00001db0| 68 6f 6f 6b 20 70 6f 73 | 74 2d 63 6f 6d 6d 61 6e |hook pos|t-comman|
|00001dc0| 64 2d 68 6f 6f 6b 20 76 | 69 70 65 72 2d 70 6f 73 |d-hook v|iper-pos|
|00001dd0| 74 2d 63 6f 6d 6d 61 6e | 64 2d 73 65 6e 74 69 6e |t-comman|d-sentin|
|00001de0| 65 6c 20 61 64 64 2d 68 | 6f 6f 6b 20 70 72 65 2d |el add-h|ook pre-|
|00001df0| 63 6f 6d 6d 61 6e 64 2d | 68 6f 6f 6b 20 76 69 70 |command-|hook vip|
|00001e00| 65 72 2d 70 72 65 2d 63 | 6f 6d 6d 61 6e 64 2d 73 |er-pre-c|ommand-s|
|00001e10| 65 6e 74 69 6e 65 6c 20 | 74 20 76 69 70 65 72 2d |entinel |t viper-|
|00001e20| 72 65 6d 6f 76 65 2d 68 | 6f 6f 6b 20 76 69 70 65 |remove-h|ook vipe|
|00001e30| 72 2d 70 6f 73 74 2d 63 | 6f 6d 6d 61 6e 64 2d 68 |r-post-c|ommand-h|
|00001e40| 6f 6f 6b 73 20 76 69 70 | 65 72 2d 69 6e 73 65 72 |ooks vip|er-inser|
|00001e50| 74 2d 73 74 61 74 65 2d | 70 6f 73 74 2d 63 6f 6d |t-state-|post-com|
|00001e60| 6d 61 6e 64 2d 73 65 6e | 74 69 6e 65 6c 20 76 69 |mand-sen|tinel vi|
|00001e70| 70 65 72 2d 70 72 65 2d | 63 6f 6d 6d 61 6e 64 2d |per-pre-|command-|
|00001e80| 68 6f 6f 6b 73 20 76 69 | 70 65 72 2d 69 6e 73 65 |hooks vi|per-inse|
|00001e90| 72 74 2d 73 74 61 74 65 | 2d 70 72 65 2d 63 6f 6d |rt-state|-pre-com|
|00001ea0| 6d 61 6e 64 2d 73 65 6e | 74 69 6e 65 6c 20 6e 69 |mand-sen|tinel ni|
|00001eb0| 6c 20 76 69 70 65 72 2d | 69 6e 74 65 72 6d 65 64 |l viper-|intermed|
|00001ec0| 69 61 74 65 2d 63 6f 6d | 6d 61 6e 64 20 6e 65 77 |iate-com|mand new|
|00001ed0| 2d 73 74 61 74 65 20 76 | 69 2d 73 74 61 74 65 20 |-state v|i-state |
|00001ee0| 76 69 70 65 72 2d 63 75 | 72 72 65 6e 74 2d 73 74 |viper-cu|rrent-st|
|00001ef0| 61 74 65 20 28 69 6e 73 | 65 72 74 2d 73 74 61 74 |ate (ins|ert-stat|
|00001f00| 65 20 72 65 70 6c 61 63 | 65 2d 73 74 61 74 65 29 |e replac|e-state)|
|00001f10| 20 28 69 6e 73 65 72 74 | 2d 73 74 61 74 65 20 72 | (insert|-state r|
|00001f20| 65 70 6c 61 63 65 2d 73 | 74 61 74 65 29 20 76 69 |eplace-s|tate) vi|
|00001f30| 70 65 72 2d 69 6e 73 65 | 72 74 2d 70 6f 69 6e 74 |per-inse|rt-point|
|00001f40| 20 70 6f 69 6e 74 2d 6d | 61 72 6b 65 72 20 76 69 | point-m|arker vi|
|00001f50| 70 65 72 2d 6c 61 73 74 | 2d 70 6f 73 6e 2d 77 68 |per-last|-posn-wh|
|00001f60| 69 6c 65 2d 69 6e 2d 69 | 6e 73 65 72 74 2d 73 74 |ile-in-i|nsert-st|
|00001f70| 61 74 65 20 69 6e 73 65 | 72 74 2d 73 74 61 74 65 |ate inse|rt-state|
|00001f80| 20 76 69 70 65 72 2d 73 | 61 76 65 64 2d 63 75 72 | viper-s|aved-cur|
|00001f90| 73 6f 72 2d 63 6f 6c 6f | 72 20 76 69 70 65 72 2d |sor-colo|r viper-|
|00001fa0| 67 65 74 2d 63 75 72 73 | 6f 72 2d 63 6f 6c 6f 72 |get-curs|or-color|
|00001fb0| 20 76 69 70 65 72 2d 69 | 6e 73 65 72 74 2d 73 74 | viper-i|nsert-st|
|00001fc0| 61 74 65 2d 63 75 72 73 | 6f 72 2d 63 6f 6c 6f 72 |ate-curs|or-color|
|00001fd0| 20 76 69 70 65 72 2d 65 | 6d 61 63 73 2d 70 20 61 | viper-e|macs-p a|
|00001fe0| 73 73 6f 63 20 63 75 72 | 73 6f 72 2d 63 6f 6c 6f |ssoc cur|sor-colo|
|00001ff0| 72 20 66 72 61 6d 65 2d | 70 61 72 61 6d 65 74 65 |r frame-|paramete|
|00002000| 72 73 20 63 6f 6c 6f 72 | 2d 69 6e 73 74 61 6e 63 |rs color|-instanc|
|00002010| 65 2d 6e 61 6d 65 20 66 | 72 61 6d 65 2d 70 72 6f |e-name f|rame-pro|
|00002020| 70 65 72 74 79 20 73 65 | 6c 65 63 74 65 64 2d 66 |perty se|lected-f|
|00002030| 72 61 6d 65 20 76 69 70 | 65 72 2d 63 68 61 6e 67 |rame vip|er-chang|
|00002040| 65 2d 63 75 72 73 6f 72 | 2d 63 6f 6c 6f 72 20 74 |e-cursor|-color t|
|00002050| 68 69 73 2d 63 6f 6d 6d | 61 6e 64 20 64 61 62 62 |his-comm|and dabb|
|00002060| 72 65 76 2d 65 78 70 61 | 6e 64 20 76 69 70 65 72 |rev-expa|nd viper|
|00002070| 2d 70 72 65 2d 63 6f 6d | 6d 61 6e 64 2d 70 6f 69 |-pre-com|mand-poi|
|00002080| 6e 74 20 6d 61 72 6b 65 | 72 70 20 6d 61 72 6b 65 |nt marke|rp marke|
|00002090| 72 2d 70 6f 73 69 74 69 | 6f 6e 20 76 69 70 65 72 |r-positi|on viper|
|000020a0| 2d 6d 6f 76 65 2d 6d 61 | 72 6b 65 72 2d 6c 6f 63 |-move-ma|rker-loc|
|000020b0| 61 6c 6c 79 20 63 6f 6e | 64 73 20 28 62 79 74 65 |ally con|ds (byte|
|000020c0| 2d 63 6f 64 65 20 22 c0 | 09 5c 6e 5c 22 88 0b ab |-code ".|.\n\"...|
|000020d0| 84 c4 13 aa 85 8a c5 20 | 88 29 c4 87 22 20 5b 76 |....... |.).." [v|
|000020e0| 69 70 65 72 2d 73 61 76 | 65 2d 6c 61 73 74 2d 69 |iper-sav|e-last-i|
|000020f0| 6e 73 65 72 74 69 6f 6e | 20 76 69 70 65 72 2d 69 |nsertion| viper-i|
|00002100| 6e 73 65 72 74 2d 70 6f | 69 6e 74 20 76 69 70 65 |nsert-po|int vipe|
|00002110| 72 2d 6c 61 73 74 2d 70 | 6f 73 6e 2d 77 68 69 6c |r-last-p|osn-whil|
|00002120| 65 2d 69 6e 2d 69 6e 73 | 65 72 74 2d 73 74 61 74 |e-in-ins|ert-stat|
|00002130| 65 20 76 69 70 65 72 2d | 62 65 67 61 6e 2d 61 73 |e viper-|began-as|
|00002140| 2d 72 65 70 6c 61 63 65 | 20 6e 69 6c 20 76 69 70 |-replace| nil vip|
|00002150| 65 72 2d 72 65 70 65 61 | 74 2d 69 6e 73 65 72 74 |er-repea|t-insert|
|00002160| 2d 63 6f 6d 6d 61 6e 64 | 5d 20 33 29 20 28 28 65 |-command|] 3) ((e|
|00002170| 72 72 6f 72 20 28 76 69 | 70 65 72 2d 6d 65 73 73 |rror (vi|per-mess|
|00002180| 61 67 65 2d 63 6f 6e 64 | 69 74 69 6f 6e 73 20 63 |age-cond|itions c|
|00002190| 6f 6e 64 73 29 29 29 20 | 76 69 70 65 72 2d 6c 61 |onds))) |viper-la|
|000021a0| 73 74 2d 69 6e 73 65 72 | 74 69 6f 6e 20 30 20 76 |st-inser|tion 0 v|
|000021b0| 69 70 65 72 2d 70 75 73 | 68 2d 6f 6e 74 6f 2d 72 |iper-pus|h-onto-r|
|000021c0| 69 6e 67 20 76 69 70 65 | 72 2d 69 6e 73 65 72 74 |ing vipe|r-insert|
|000021d0| 69 6f 6e 2d 72 69 6e 67 | 20 76 69 70 65 72 2d 65 |ion-ring| viper-e|
|000021e0| 78 2d 73 74 79 6c 65 2d | 65 64 69 74 69 6e 67 20 |x-style-|editing |
|000021f0| 62 61 63 6b 77 61 72 64 | 2d 63 68 61 72 20 31 20 |backward|-char 1 |
|00002200| 28 69 6e 73 65 72 74 2d | 73 74 61 74 65 20 72 65 |(insert-|state re|
|00002210| 70 6c 61 63 65 2d 73 74 | 61 74 65 29 20 28 65 6d |place-st|ate) (em|
|00002220| 61 63 73 2d 73 74 61 74 | 65 20 76 69 2d 73 74 61 |acs-stat|e vi-sta|
|00002230| 74 65 29 20 76 69 70 65 | 72 2d 61 64 64 2d 68 6f |te) vipe|r-add-ho|
|00002240| 6f 6b 20 61 72 67 20 62 | 6f 75 6e 64 70 20 69 73 |ok arg b|oundp is|
|00002250| 6f 2d 61 63 63 65 6e 74 | 73 2d 6d 6f 64 65 20 76 |o-accent|s-mode v|
|00002260| 69 70 65 72 2d 61 75 74 | 6f 6d 61 74 69 63 2d 69 |iper-aut|omatic-i|
|00002270| 73 6f 2d 61 63 63 65 6e | 74 73 20 76 69 70 65 72 |so-accen|ts viper|
|00002280| 2d 73 65 74 2d 69 6e 70 | 75 74 2d 6d 65 74 68 6f |-set-inp|ut-metho|
|00002290| 64 20 76 69 70 65 72 2d | 73 70 65 63 69 61 6c 2d |d viper-|special-|
|000022a0| 69 6e 70 75 74 2d 6d 65 | 74 68 6f 64 20 76 69 70 |input-me|thod vip|
|000022b0| 65 72 2d 75 70 64 61 74 | 65 2d 73 79 6e 74 61 78 |er-updat|e-syntax|
|000022c0| 2d 63 6c 61 73 73 65 73 | 20 76 69 70 65 72 2d 6e |-classes| viper-n|
|000022d0| 6f 72 6d 61 6c 69 7a 65 | 2d 6d 69 6e 6f 72 2d 6d |ormalize|-minor-m|
|000022e0| 6f 64 65 2d 6d 61 70 2d | 61 6c 69 73 74 20 76 69 |ode-map-|alist vi|
|000022f0| 70 65 72 2d 61 64 6a 75 | 73 74 2d 6b 65 79 73 2d |per-adju|st-keys-|
|00002300| 66 6f 72 20 76 69 70 65 | 72 2d 73 65 74 2d 6d 6f |for vipe|r-set-mo|
|00002310| 64 65 2d 76 61 72 73 2d | 66 6f 72 20 76 69 70 65 |de-vars-|for vipe|
|00002320| 72 2d 72 65 66 72 65 73 | 68 2d 6d 6f 64 65 2d 6c |r-refres|h-mode-l|
|00002330| 69 6e 65 5d 20 34 5d 29 | 0a 23 40 36 32 20 4d 61 |ine] 4])|.#@62 Ma|
|00002340| 6b 65 20 6e 65 63 65 73 | 73 61 72 79 20 61 64 6a |ke neces|sary adj|
|00002350| 75 73 74 6d 65 6e 74 73 | 20 74 6f 20 6b 65 79 6d |ustments| to keym|
|00002360| 61 70 73 20 62 65 66 6f | 72 65 20 65 6e 74 65 72 |aps befo|re enter|
|00002370| 69 6e 67 20 53 54 41 54 | 45 2e 1f 0a 28 64 65 66 |ing STAT|E...(def|
|00002380| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 61 64 6a |alias 'v|iper-adj|
|00002390| 75 73 74 2d 6b 65 79 73 | 2d 66 6f 72 20 23 5b 28 |ust-keys|-for #[(|
|000023a0| 73 74 61 74 65 29 20 22 | 08 c1 73 ab db 5c 6e ab |state) "|..s..\n.|
|000023b0| 9a c3 0c c5 c6 23 88 0e | 07 ab 88 c3 0c c8 c9 23 |.....#..|.......#|
|000023c0| 88 aa 94 c3 0c c8 c6 23 | 88 aa 8c c3 0c c5 c9 23 |.......#|.......#|
|000023d0| 88 c3 0c c8 c9 23 88 0e | 07 3f 16 5c 6e 0e 0b ab |.....#..|.?.\n...|
|000023e0| 8f c3 0c cc cd 23 88 c3 | 0e 0e cc cd 23 88 aa 8d |.....#..|....#...|
|000023f0| c3 0c cc cf 23 88 c3 0e | 0e cc d0 23 88 c3 0c d1 |....#...|...#....|
|00002400| cf 23 88 c3 0e 0e d2 d0 | 23 87 0e 13 3f 16 14 0e |.#......|#...?...|
|00002410| 0b ab 89 c3 0e 15 cc cd | 23 88 aa 87 c3 0e 15 cc |........|#.......|
|00002420| d6 23 88 c3 0e 15 d7 d6 | 23 87 22 20 5b 73 74 61 |.#......|#." [sta|
|00002430| 74 65 20 28 69 6e 73 65 | 72 74 2d 73 74 61 74 65 |te (inse|rt-state|
|00002440| 20 72 65 70 6c 61 63 65 | 2d 73 74 61 74 65 29 20 | replace|-state) |
|00002450| 76 69 70 65 72 2d 61 75 | 74 6f 2d 69 6e 64 65 6e |viper-au|to-inden|
|00002460| 74 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 76 69 70 |t define|-key vip|
|00002470| 65 72 2d 69 6e 73 65 72 | 74 2d 62 61 73 69 63 2d |er-inser|t-basic-|
|00002480| 6d 61 70 20 22 0d 22 20 | 76 69 70 65 72 2d 61 75 |map "." |viper-au|
|00002490| 74 6f 69 6e 64 65 6e 74 | 20 76 69 70 65 72 2d 77 |toindent| viper-w|
|000024a0| 61 6e 74 2d 65 6d 61 63 | 73 2d 6b 65 79 73 2d 69 |ant-emac|s-keys-i|
|000024b0| 6e 2d 69 6e 73 65 72 74 | 20 22 5c 6e 22 20 6e 69 |n-insert| "\n" ni|
|000024c0| 6c 20 76 69 70 65 72 2d | 69 6e 73 65 72 74 2d 64 |l viper-|insert-d|
|000024d0| 69 65 68 61 72 64 2d 6d | 69 6e 6f 72 2d 6d 6f 64 |iehard-m|inor-mod|
|000024e0| 65 20 76 69 70 65 72 2d | 77 61 6e 74 2d 63 74 6c |e viper-|want-ctl|
|000024f0| 2d 68 2d 68 65 6c 70 20 | 22 08 22 20 68 65 6c 70 |-h-help |"." help|
|00002500| 2d 63 6f 6d 6d 61 6e 64 | 20 76 69 70 65 72 2d 72 |-command| viper-r|
|00002510| 65 70 6c 61 63 65 2d 6d | 61 70 20 76 69 70 65 72 |eplace-m|ap viper|
|00002520| 2d 64 65 6c 2d 62 61 63 | 6b 77 61 72 64 2d 63 68 |-del-bac|kward-ch|
|00002530| 61 72 2d 69 6e 2d 69 6e | 73 65 72 74 20 76 69 70 |ar-in-in|sert vip|
|00002540| 65 72 2d 64 65 6c 2d 62 | 61 63 6b 77 61 72 64 2d |er-del-b|ackward-|
|00002550| 63 68 61 72 2d 69 6e 2d | 72 65 70 6c 61 63 65 20 |char-in-|replace |
|00002560| 5b 62 61 63 6b 73 70 61 | 63 65 5d 20 5b 62 61 63 |[backspa|ce] [bac|
|00002570| 6b 73 70 61 63 65 5d 20 | 76 69 70 65 72 2d 77 61 |kspace] |viper-wa|
|00002580| 6e 74 2d 65 6d 61 63 73 | 2d 6b 65 79 73 2d 69 6e |nt-emacs|-keys-in|
|00002590| 2d 76 69 20 76 69 70 65 | 72 2d 76 69 2d 64 69 65 |-vi vipe|r-vi-die|
|000025a0| 68 61 72 64 2d 6d 69 6e | 6f 72 2d 6d 6f 64 65 20 |hard-min|or-mode |
|000025b0| 76 69 70 65 72 2d 76 69 | 2d 62 61 73 69 63 2d 6d |viper-vi|-basic-m|
|000025c0| 61 70 20 76 69 70 65 72 | 2d 62 61 63 6b 77 61 72 |ap viper|-backwar|
|000025d0| 64 2d 63 68 61 72 20 5b | 62 61 63 6b 73 70 61 63 |d-char [|backspac|
|000025e0| 65 5d 5d 20 34 20 28 23 | 24 20 2e 20 39 30 32 32 |e]] 4 (#|$ . 9022|
|000025f0| 29 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |)]).(def|alias 'v|
|00002600| 69 70 65 72 2d 6e 6f 72 | 6d 61 6c 69 7a 65 2d 6d |iper-nor|malize-m|
|00002610| 69 6e 6f 72 2d 6d 6f 64 | 65 2d 6d 61 70 2d 61 6c |inor-mod|e-map-al|
|00002620| 69 73 74 20 23 5b 6e 69 | 6c 20 22 c0 c1 5c 6e 42 |ist #[ni|l "..\nB|
|00002630| c3 0c 42 c5 0e 06 42 c7 | 0e 08 42 c9 0e 5c 6e 42 |..B...B.|..B..\nB|
|00002640| cb cc cd 0e 0e 0e 0f 5c | 22 41 21 ab 89 cd 0e 0e |.......\|"A!.....|
|00002650| 0e 0f 5c 22 41 aa 82 0e | 10 42 d1 0e 12 42 d3 0e |..\"A...|.B...B..|
|00002660| 14 42 d5 0e 16 42 d7 0e | 18 42 d9 0c 42 da 0e 1b |.B...B..|.B..B...|
|00002670| 42 dc 0e 1d 42 de 0e 1f | 42 e0 cc cd 0e 0e 0e 21 |B...B...|B......!|
|00002680| 5c 22 41 21 ab 89 cd 0e | 0e 0e 21 5c 22 41 aa 82 |\"A!....|..!\"A..|
|00002690| 0e 10 42 e2 0e 23 42 e4 | 0e 25 42 e6 0e 27 42 e8 |..B..#B.|.%B..'B.|
|000026a0| 0e 29 42 ea 0e 2b 42 ec | 0e 2d 42 ee cc cd 0e 0e |.)B..+B.|.-B.....|
|000026b0| 0e 2f 5c 22 41 21 ab 89 | cd 0e 0e 0e 2f 5c 22 41 |./\"A!..|..../\"A|
|000026c0| aa 82 0e 10 42 af 16 0e | 30 5c 22 89 16 30 87 22 |....B...|0\"..0."|
|000026d0| 20 5b 76 69 70 65 72 2d | 61 70 70 65 6e 64 2d 66 | [viper-|append-f|
|000026e0| 69 6c 74 65 72 2d 61 6c | 69 73 74 20 76 69 70 65 |ilter-al|ist vipe|
|000026f0| 72 2d 76 69 2d 69 6e 74 | 65 72 63 65 70 74 2d 6d |r-vi-int|ercept-m|
|00002700| 69 6e 6f 72 2d 6d 6f 64 | 65 20 76 69 70 65 72 2d |inor-mod|e viper-|
|00002710| 76 69 2d 69 6e 74 65 72 | 63 65 70 74 2d 6d 61 70 |vi-inter|cept-map|
|00002720| 20 76 69 70 65 72 2d 76 | 69 2d 6d 69 6e 69 62 75 | viper-v|i-minibu|
|00002730| 66 66 65 72 2d 6d 69 6e | 6f 72 2d 6d 6f 64 65 20 |ffer-min|or-mode |
|00002740| 76 69 70 65 72 2d 6d 69 | 6e 69 62 75 66 66 65 72 |viper-mi|nibuffer|
|00002750| 2d 6d 61 70 20 76 69 70 | 65 72 2d 76 69 2d 6c 6f |-map vip|er-vi-lo|
|00002760| 63 61 6c 2d 75 73 65 72 | 2d 6d 69 6e 6f 72 2d 6d |cal-user|-minor-m|
|00002770| 6f 64 65 20 76 69 70 65 | 72 2d 76 69 2d 6c 6f 63 |ode vipe|r-vi-loc|
|00002780| 61 6c 2d 75 73 65 72 2d | 6d 61 70 20 76 69 70 65 |al-user-|map vipe|
|00002790| 72 2d 76 69 2d 6b 62 64 | 2d 6d 69 6e 6f 72 2d 6d |r-vi-kbd|-minor-m|
|000027a0| 6f 64 65 20 76 69 70 65 | 72 2d 76 69 2d 6b 62 64 |ode vipe|r-vi-kbd|
|000027b0| 2d 6d 61 70 20 76 69 70 | 65 72 2d 76 69 2d 67 6c |-map vip|er-vi-gl|
|000027c0| 6f 62 61 6c 2d 75 73 65 | 72 2d 6d 69 6e 6f 72 2d |obal-use|r-minor-|
|000027d0| 6d 6f 64 65 20 76 69 70 | 65 72 2d 76 69 2d 67 6c |mode vip|er-vi-gl|
|000027e0| 6f 62 61 6c 2d 75 73 65 | 72 2d 6d 61 70 20 76 69 |obal-use|r-map vi|
|000027f0| 70 65 72 2d 76 69 2d 73 | 74 61 74 65 2d 6d 6f 64 |per-vi-s|tate-mod|
|00002800| 69 66 69 65 72 2d 6d 69 | 6e 6f 72 2d 6d 6f 64 65 |ifier-mi|nor-mode|
|00002810| 20 6b 65 79 6d 61 70 70 | 20 61 73 73 6f 63 20 6d | keymapp| assoc m|
|00002820| 61 6a 6f 72 2d 6d 6f 64 | 65 20 76 69 70 65 72 2d |ajor-mod|e viper-|
|00002830| 76 69 2d 73 74 61 74 65 | 2d 6d 6f 64 69 66 69 65 |vi-state|-modifie|
|00002840| 72 2d 61 6c 69 73 74 20 | 76 69 70 65 72 2d 65 6d |r-alist |viper-em|
|00002850| 70 74 79 2d 6b 65 79 6d | 61 70 20 76 69 70 65 72 |pty-keym|ap viper|
|00002860| 2d 76 69 2d 64 69 65 68 | 61 72 64 2d 6d 69 6e 6f |-vi-dieh|ard-mino|
|00002870| 72 2d 6d 6f 64 65 20 76 | 69 70 65 72 2d 76 69 2d |r-mode v|iper-vi-|
|00002880| 64 69 65 68 61 72 64 2d | 6d 61 70 20 76 69 70 65 |diehard-|map vipe|
|00002890| 72 2d 76 69 2d 62 61 73 | 69 63 2d 6d 69 6e 6f 72 |r-vi-bas|ic-minor|
|000028a0| 2d 6d 6f 64 65 20 76 69 | 70 65 72 2d 76 69 2d 62 |-mode vi|per-vi-b|
|000028b0| 61 73 69 63 2d 6d 61 70 | 20 76 69 70 65 72 2d 69 |asic-map| viper-i|
|000028c0| 6e 73 65 72 74 2d 69 6e | 74 65 72 63 65 70 74 2d |nsert-in|tercept-|
|000028d0| 6d 69 6e 6f 72 2d 6d 6f | 64 65 20 76 69 70 65 72 |minor-mo|de viper|
|000028e0| 2d 69 6e 73 65 72 74 2d | 69 6e 74 65 72 63 65 70 |-insert-|intercep|
|000028f0| 74 2d 6d 61 70 20 76 69 | 70 65 72 2d 72 65 70 6c |t-map vi|per-repl|
|00002900| 61 63 65 2d 6d 69 6e 6f | 72 2d 6d 6f 64 65 20 76 |ace-mino|r-mode v|
|00002910| 69 70 65 72 2d 72 65 70 | 6c 61 63 65 2d 6d 61 70 |iper-rep|lace-map|
|00002920| 20 76 69 70 65 72 2d 69 | 6e 73 65 72 74 2d 6d 69 | viper-i|nsert-mi|
|00002930| 6e 69 62 75 66 66 65 72 | 2d 6d 69 6e 6f 72 2d 6d |nibuffer|-minor-m|
|00002940| 6f 64 65 20 76 69 70 65 | 72 2d 69 6e 73 65 72 74 |ode vipe|r-insert|
|00002950| 2d 6c 6f 63 61 6c 2d 75 | 73 65 72 2d 6d 69 6e 6f |-local-u|ser-mino|
|00002960| 72 2d 6d 6f 64 65 20 76 | 69 70 65 72 2d 69 6e 73 |r-mode v|iper-ins|
|00002970| 65 72 74 2d 6c 6f 63 61 | 6c 2d 75 73 65 72 2d 6d |ert-loca|l-user-m|
|00002980| 61 70 20 76 69 70 65 72 | 2d 69 6e 73 65 72 74 2d |ap viper|-insert-|
|00002990| 6b 62 64 2d 6d 69 6e 6f | 72 2d 6d 6f 64 65 20 76 |kbd-mino|r-mode v|
|000029a0| 69 70 65 72 2d 69 6e 73 | 65 72 74 2d 6b 62 64 2d |iper-ins|ert-kbd-|
|000029b0| 6d 61 70 20 76 69 70 65 | 72 2d 69 6e 73 65 72 74 |map vipe|r-insert|
|000029c0| 2d 67 6c 6f 62 61 6c 2d | 75 73 65 72 2d 6d 69 6e |-global-|user-min|
|000029d0| 6f 72 2d 6d 6f 64 65 20 | 76 69 70 65 72 2d 69 6e |or-mode |viper-in|
|000029e0| 73 65 72 74 2d 67 6c 6f | 62 61 6c 2d 75 73 65 72 |sert-glo|bal-user|
|000029f0| 2d 6d 61 70 20 76 69 70 | 65 72 2d 69 6e 73 65 72 |-map vip|er-inser|
|00002a00| 74 2d 73 74 61 74 65 2d | 6d 6f 64 69 66 69 65 72 |t-state-|modifier|
|00002a10| 2d 6d 69 6e 6f 72 2d 6d | 6f 64 65 20 76 69 70 65 |-minor-m|ode vipe|
|00002a20| 72 2d 69 6e 73 65 72 74 | 2d 73 74 61 74 65 2d 6d |r-insert|-state-m|
|00002a30| 6f 64 69 66 69 65 72 2d | 61 6c 69 73 74 20 76 69 |odifier-|alist vi|
|00002a40| 70 65 72 2d 69 6e 73 65 | 72 74 2d 64 69 65 68 61 |per-inse|rt-dieha|
|00002a50| 72 64 2d 6d 69 6e 6f 72 | 2d 6d 6f 64 65 20 76 69 |rd-minor|-mode vi|
|00002a60| 70 65 72 2d 69 6e 73 65 | 72 74 2d 64 69 65 68 61 |per-inse|rt-dieha|
|00002a70| 72 64 2d 6d 61 70 20 76 | 69 70 65 72 2d 69 6e 73 |rd-map v|iper-ins|
|00002a80| 65 72 74 2d 62 61 73 69 | 63 2d 6d 69 6e 6f 72 2d |ert-basi|c-minor-|
|00002a90| 6d 6f 64 65 20 76 69 70 | 65 72 2d 69 6e 73 65 72 |mode vip|er-inser|
|00002aa0| 74 2d 62 61 73 69 63 2d | 6d 61 70 20 76 69 70 65 |t-basic-|map vipe|
|00002ab0| 72 2d 65 6d 61 63 73 2d | 69 6e 74 65 72 63 65 70 |r-emacs-|intercep|
|00002ac0| 74 2d 6d 69 6e 6f 72 2d | 6d 6f 64 65 20 76 69 70 |t-minor-|mode vip|
|00002ad0| 65 72 2d 65 6d 61 63 73 | 2d 69 6e 74 65 72 63 65 |er-emacs|-interce|
|00002ae0| 70 74 2d 6d 61 70 20 76 | 69 70 65 72 2d 65 6d 61 |pt-map v|iper-ema|
|00002af0| 63 73 2d 6c 6f 63 61 6c | 2d 75 73 65 72 2d 6d 69 |cs-local|-user-mi|
|00002b00| 6e 6f 72 2d 6d 6f 64 65 | 20 76 69 70 65 72 2d 65 |nor-mode| viper-e|
|00002b10| 6d 61 63 73 2d 6c 6f 63 | 61 6c 2d 75 73 65 72 2d |macs-loc|al-user-|
|00002b20| 6d 61 70 20 76 69 70 65 | 72 2d 65 6d 61 63 73 2d |map vipe|r-emacs-|
|00002b30| 6b 62 64 2d 6d 69 6e 6f | 72 2d 6d 6f 64 65 20 76 |kbd-mino|r-mode v|
|00002b40| 69 70 65 72 2d 65 6d 61 | 63 73 2d 6b 62 64 2d 6d |iper-ema|cs-kbd-m|
|00002b50| 61 70 20 76 69 70 65 72 | 2d 65 6d 61 63 73 2d 67 |ap viper|-emacs-g|
|00002b60| 6c 6f 62 61 6c 2d 75 73 | 65 72 2d 6d 69 6e 6f 72 |lobal-us|er-minor|
|00002b70| 2d 6d 6f 64 65 20 76 69 | 70 65 72 2d 65 6d 61 63 |-mode vi|per-emac|
|00002b80| 73 2d 67 6c 6f 62 61 6c | 2d 75 73 65 72 2d 6d 61 |s-global|-user-ma|
|00002b90| 70 20 76 69 70 65 72 2d | 65 6d 61 63 73 2d 73 74 |p viper-|emacs-st|
|00002ba0| 61 74 65 2d 6d 6f 64 69 | 66 69 65 72 2d 6d 69 6e |ate-modi|fier-min|
|00002bb0| 6f 72 2d 6d 6f 64 65 20 | 76 69 70 65 72 2d 65 6d |or-mode |viper-em|
|00002bc0| 61 63 73 2d 73 74 61 74 | 65 2d 6d 6f 64 69 66 69 |acs-stat|e-modifi|
|00002bd0| 65 72 2d 61 6c 69 73 74 | 20 6d 69 6e 6f 72 2d 6d |er-alist| minor-m|
|00002be0| 6f 64 65 2d 6d 61 70 2d | 61 6c 69 73 74 5d 20 32 |ode-map-|alist] 2|
|00002bf0| 37 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 |7]).(def|alias 'v|
|00002c00| 69 70 65 72 2d 72 65 66 | 72 65 73 68 2d 6d 6f 64 |iper-ref|resh-mod|
|00002c10| 65 2d 6c 69 6e 65 20 23 | 5b 6e 69 6c 20 22 08 c1 |e-line #|[nil "..|
|00002c20| 61 ab 83 5c 6e aa 98 08 | c3 61 ab 83 0c aa 90 08 |a..\n...|.a......|
|00002c30| c5 61 ab 84 0e 06 aa 87 | 08 c7 61 ad 82 0e 08 16 |.a......|..a.....|
|00002c40| 09 ca 20 87 22 20 5b 76 | 69 70 65 72 2d 63 75 72 |.. ." [v|iper-cur|
|00002c50| 72 65 6e 74 2d 73 74 61 | 74 65 20 65 6d 61 63 73 |rent-sta|te emacs|
|00002c60| 2d 73 74 61 74 65 20 76 | 69 70 65 72 2d 65 6d 61 |-state v|iper-ema|
|00002c70| 63 73 2d 73 74 61 74 65 | 2d 69 64 20 76 69 2d 73 |cs-state|-id vi-s|
|00002c80| 74 61 74 65 20 76 69 70 | 65 72 2d 76 69 2d 73 74 |tate vip|er-vi-st|
|00002c90| 61 74 65 2d 69 64 20 72 | 65 70 6c 61 63 65 2d 73 |ate-id r|eplace-s|
|00002ca0| 74 61 74 65 20 76 69 70 | 65 72 2d 72 65 70 6c 61 |tate vip|er-repla|
|00002cb0| 63 65 2d 73 74 61 74 65 | 2d 69 64 20 69 6e 73 65 |ce-state|-id inse|
|00002cc0| 72 74 2d 73 74 61 74 65 | 20 76 69 70 65 72 2d 69 |rt-state| viper-i|
|00002cd0| 6e 73 65 72 74 2d 73 74 | 61 74 65 2d 69 64 20 76 |nsert-st|ate-id v|
|00002ce0| 69 70 65 72 2d 6d 6f 64 | 65 2d 73 74 72 69 6e 67 |iper-mod|e-string|
|00002cf0| 20 66 6f 72 63 65 2d 6d | 6f 64 65 2d 6c 69 6e 65 | force-m|ode-line|
|00002d00| 2d 75 70 64 61 74 65 5d | 20 32 5d 29 0a 28 64 65 |-update]| 2]).(de|
|00002d10| 66 61 6c 69 61 73 20 27 | 76 69 70 65 72 2d 65 78 |falias '|viper-ex|
|00002d20| 69 74 2d 69 6e 73 65 72 | 74 2d 73 74 61 74 65 20 |it-inser|t-state |
|00002d30| 23 5b 6e 69 6c 20 22 c0 | 20 87 22 20 5b 76 69 70 |#[nil ".| ." [vip|
|00002d40| 65 72 2d 63 68 61 6e 67 | 65 2d 73 74 61 74 65 2d |er-chang|e-state-|
|00002d50| 74 6f 2d 76 69 5d 20 31 | 20 6e 69 6c 20 6e 69 6c |to-vi] 1| nil nil|
|00002d60| 5d 29 0a 23 40 37 31 20 | 53 65 74 73 20 56 69 70 |]).#@71 |Sets Vip|
|00002d70| 65 72 20 6d 69 6e 6f 72 | 20 6d 6f 64 65 20 76 61 |er minor| mode va|
|00002d80| 72 69 61 62 6c 65 73 20 | 74 6f 20 70 75 74 20 56 |riables |to put V|
|00002d90| 69 70 65 72 27 73 20 73 | 74 61 74 65 20 53 54 41 |iper's s|tate STA|
|00002da0| 54 45 20 69 6e 20 65 66 | 66 65 63 74 2e 1f 0a 28 |TE in ef|fect...(|
|00002db0| 64 65 66 61 6c 69 61 73 | 20 27 76 69 70 65 72 2d |defalias| 'viper-|
|00002dc0| 73 65 74 2d 6d 6f 64 65 | 2d 76 61 72 73 2d 66 6f |set-mode|-vars-fo|
|00002dd0| 72 20 23 5b 28 73 74 61 | 74 65 29 20 22 c0 11 c0 |r #[(sta|te) "...|
|00002de0| 12 c0 13 c0 14 c0 15 c0 | 16 06 c0 16 07 c0 16 08 |........|........|
|00002df0| c0 16 09 c0 16 5c 6e c0 | 16 0b c0 16 0c c0 16 0d |.....\n.|........|
|00002e00| c0 16 0e c0 16 0f c0 16 | 10 c0 16 11 d2 16 13 d2 |........|........|
|00002e10| 16 14 d5 d6 d7 20 5c 22 | 3f 16 18 d2 16 19 d2 16 |..... \"|?.......|
|00002e20| 1a 0e 1b dc 61 ab b6 d2 | 13 d5 d6 d7 20 5c 22 11 |....a...|.... \".|
|00002e30| d2 15 d5 d6 d7 20 5c 22 | 3f 16 06 d2 16 07 d2 16 |..... \"|?.......|
|00002e40| 08 0e 1d ae 85 d5 d6 d7 | 20 5c 22 3f 16 09 d2 16 |........| \"?....|
|00002e50| 5c 6e c0 16 13 c0 16 14 | c0 16 18 c0 16 19 c0 16 |\n......|........|
|00002e60| 1a 0e 1b de b6 ab bd d2 | 14 0e 1b df 61 16 0b d5 |........|....a...|
|00002e70| d6 d7 20 5c 22 12 d2 16 | 0c d5 d6 d7 20 5c 22 3f |.. \"...|.... \"?|
|00002e80| 16 0d d2 16 0e d2 16 0f | 0e 20 ae 85 d5 d6 d7 20 |........|. ..... |
|00002e90| 5c 22 3f 16 10 d2 16 11 | c0 16 13 c0 16 14 c0 16 |\"?.....|........|
|00002ea0| 18 c0 16 19 c0 16 1a e1 | 20 ab 9e 0e 1b e2 61 ab |........| .....a.|
|00002eb0| 84 0e 23 aa 92 0e 1b dc | 61 ab 84 0e 24 aa 88 0e |..#.....|a...$...|
|00002ec0| 1b e5 73 ad 82 0e 26 16 | 27 d5 d6 d7 20 5c 22 ad |..s...&.|'... \".|
|00002ed0| 82 e8 20 87 22 20 5b 6e | 69 6c 20 76 69 70 65 72 |.. ." [n|il viper|
|00002ee0| 2d 76 69 2d 6d 69 6e 69 | 62 75 66 66 65 72 2d 6d |-vi-mini|buffer-m|
|00002ef0| 69 6e 6f 72 2d 6d 6f 64 | 65 20 76 69 70 65 72 2d |inor-mod|e viper-|
|00002f00| 69 6e 73 65 72 74 2d 6d | 69 6e 69 62 75 66 66 65 |insert-m|inibuffe|
|00002f10| 72 2d 6d 69 6e 6f 72 2d | 6d 6f 64 65 20 76 69 70 |r-minor-|mode vip|
|00002f20| 65 72 2d 76 69 2d 69 6e | 74 65 72 63 65 70 74 2d |er-vi-in|tercept-|
|00002f30| 6d 69 6e 6f 72 2d 6d 6f | 64 65 20 76 69 70 65 72 |minor-mo|de viper|
|00002f40| 2d 69 6e 73 65 72 74 2d | 69 6e 74 65 72 63 65 70 |-insert-|intercep|
|00002f50| 74 2d 6d 69 6e 6f 72 2d | 6d 6f 64 65 20 76 69 70 |t-minor-|mode vip|
|00002f60| 65 72 2d 76 69 2d 6c 6f | 63 61 6c 2d 75 73 65 72 |er-vi-lo|cal-user|
|00002f70| 2d 6d 69 6e 6f 72 2d 6d | 6f 64 65 20 76 69 70 65 |-minor-m|ode vipe|
|00002f80| 72 2d 76 69 2d 6b 62 64 | 2d 6d 69 6e 6f 72 2d 6d |r-vi-kbd|-minor-m|
|00002f90| 6f 64 65 20 76 69 70 65 | 72 2d 76 69 2d 67 6c 6f |ode vipe|r-vi-glo|
|00002fa0| 62 61 6c 2d 75 73 65 72 | 2d 6d 69 6e 6f 72 2d 6d |bal-user|-minor-m|
|00002fb0| 6f 64 65 20 76 69 70 65 | 72 2d 76 69 2d 73 74 61 |ode vipe|r-vi-sta|
|00002fc0| 74 65 2d 6d 6f 64 69 66 | 69 65 72 2d 6d 69 6e 6f |te-modif|ier-mino|
|00002fd0| 72 2d 6d 6f 64 65 20 76 | 69 70 65 72 2d 76 69 2d |r-mode v|iper-vi-|
|00002fe0| 64 69 65 68 61 72 64 2d | 6d 69 6e 6f 72 2d 6d 6f |diehard-|minor-mo|
|00002ff0| 64 65 20 76 69 70 65 72 | 2d 76 69 2d 62 61 73 69 |de viper|-vi-basi|
|00003000| 63 2d 6d 69 6e 6f 72 2d | 6d 6f 64 65 20 76 69 70 |c-minor-|mode vip|
|00003010| 65 72 2d 72 65 70 6c 61 | 63 65 2d 6d 69 6e 6f 72 |er-repla|ce-minor|
|00003020| 2d 6d 6f 64 65 20 76 69 | 70 65 72 2d 69 6e 73 65 |-mode vi|per-inse|
|00003030| 72 74 2d 6c 6f 63 61 6c | 2d 75 73 65 72 2d 6d 69 |rt-local|-user-mi|
|00003040| 6e 6f 72 2d 6d 6f 64 65 | 20 76 69 70 65 72 2d 69 |nor-mode| viper-i|
|00003050| 6e 73 65 72 74 2d 6b 62 | 64 2d 6d 69 6e 6f 72 2d |nsert-kb|d-minor-|
|00003060| 6d 6f 64 65 20 76 69 70 | 65 72 2d 69 6e 73 65 72 |mode vip|er-inser|
|00003070| 74 2d 67 6c 6f 62 61 6c | 2d 75 73 65 72 2d 6d 69 |t-global|-user-mi|
|00003080| 6e 6f 72 2d 6d 6f 64 65 | 20 76 69 70 65 72 2d 69 |nor-mode| viper-i|
|00003090| 6e 73 65 72 74 2d 73 74 | 61 74 65 2d 6d 6f 64 69 |nsert-st|ate-modi|
|000030a0| 66 69 65 72 2d 6d 69 6e | 6f 72 2d 6d 6f 64 65 20 |fier-min|or-mode |
|000030b0| 76 69 70 65 72 2d 69 6e | 73 65 72 74 2d 64 69 65 |viper-in|sert-die|
|000030c0| 68 61 72 64 2d 6d 69 6e | 6f 72 2d 6d 6f 64 65 20 |hard-min|or-mode |
|000030d0| 76 69 70 65 72 2d 69 6e | 73 65 72 74 2d 62 61 73 |viper-in|sert-bas|
|000030e0| 69 63 2d 6d 69 6e 6f 72 | 2d 6d 6f 64 65 20 74 20 |ic-minor|-mode t |
|000030f0| 76 69 70 65 72 2d 65 6d | 61 63 73 2d 69 6e 74 65 |viper-em|acs-inte|
|00003100| 72 63 65 70 74 2d 6d 69 | 6e 6f 72 2d 6d 6f 64 65 |rcept-mi|nor-mode|
|00003110| 20 76 69 70 65 72 2d 65 | 6d 61 63 73 2d 6c 6f 63 | viper-e|macs-loc|
|00003120| 61 6c 2d 75 73 65 72 2d | 6d 69 6e 6f 72 2d 6d 6f |al-user-|minor-mo|
|00003130| 64 65 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |de strin|g-match |
|00003140| 22 2a 4d 69 6e 69 62 75 | 66 2d 22 20 62 75 66 66 |"*Minibu|f-" buff|
|00003150| 65 72 2d 6e 61 6d 65 20 | 76 69 70 65 72 2d 65 6d |er-name |viper-em|
|00003160| 61 63 73 2d 6b 62 64 2d | 6d 69 6e 6f 72 2d 6d 6f |acs-kbd-|minor-mo|
|00003170| 64 65 20 76 69 70 65 72 | 2d 65 6d 61 63 73 2d 67 |de viper|-emacs-g|
|00003180| 6c 6f 62 61 6c 2d 75 73 | 65 72 2d 6d 69 6e 6f 72 |lobal-us|er-minor|
|00003190| 2d 6d 6f 64 65 20 76 69 | 70 65 72 2d 65 6d 61 63 |-mode vi|per-emac|
|000031a0| 73 2d 73 74 61 74 65 2d | 6d 6f 64 69 66 69 65 72 |s-state-|modifier|
|000031b0| 2d 6d 69 6e 6f 72 2d 6d | 6f 64 65 20 73 74 61 74 |-minor-m|ode stat|
|000031c0| 65 20 76 69 2d 73 74 61 | 74 65 20 76 69 70 65 72 |e vi-sta|te viper|
|000031d0| 2d 77 61 6e 74 2d 65 6d | 61 63 73 2d 6b 65 79 73 |-want-em|acs-keys|
|000031e0| 2d 69 6e 2d 76 69 20 28 | 69 6e 73 65 72 74 2d 73 |-in-vi (|insert-s|
|000031f0| 74 61 74 65 20 72 65 70 | 6c 61 63 65 2d 73 74 61 |tate rep|lace-sta|
|00003200| 74 65 29 20 72 65 70 6c | 61 63 65 2d 73 74 61 74 |te) repl|ace-stat|
|00003210| 65 20 76 69 70 65 72 2d | 77 61 6e 74 2d 65 6d 61 |e viper-|want-ema|
|00003220| 63 73 2d 6b 65 79 73 2d | 69 6e 2d 69 6e 73 65 72 |cs-keys-|in-inser|
|00003230| 74 20 76 69 70 65 72 2d | 68 61 73 2d 66 61 63 65 |t viper-|has-face|
|00003240| 2d 73 75 70 70 6f 72 74 | 2d 70 20 65 6d 61 63 73 |-support|-p emacs|
|00003250| 2d 73 74 61 74 65 20 76 | 69 70 65 72 2d 6d 69 6e |-state v|iper-min|
|00003260| 69 62 75 66 66 65 72 2d | 65 6d 61 63 73 2d 66 61 |ibuffer-|emacs-fa|
|00003270| 63 65 20 76 69 70 65 72 | 2d 6d 69 6e 69 62 75 66 |ce viper|-minibuf|
|00003280| 66 65 72 2d 76 69 2d 66 | 61 63 65 20 28 69 6e 73 |fer-vi-f|ace (ins|
|00003290| 65 72 74 2d 73 74 61 74 | 65 20 72 65 70 6c 61 63 |ert-stat|e replac|
|000032a0| 65 2d 73 74 61 74 65 29 | 20 76 69 70 65 72 2d 6d |e-state)| viper-m|
|000032b0| 69 6e 69 62 75 66 66 65 | 72 2d 69 6e 73 65 72 74 |inibuffe|r-insert|
|000032c0| 2d 66 61 63 65 20 76 69 | 70 65 72 2d 6d 69 6e 69 |-face vi|per-mini|
|000032d0| 62 75 66 66 65 72 2d 63 | 75 72 72 65 6e 74 2d 66 |buffer-c|urrent-f|
|000032e0| 61 63 65 20 76 69 70 65 | 72 2d 73 65 74 2d 6d 69 |ace vipe|r-set-mi|
|000032f0| 6e 69 62 75 66 66 65 72 | 2d 6f 76 65 72 6c 61 79 |nibuffer|-overlay|
|00003300| 5d 20 33 20 28 23 24 20 | 2e 20 31 31 36 32 34 29 |] 3 (#$ |. 11624)|
|00003310| 5d 29 0a 23 40 32 37 20 | 43 68 61 6e 67 65 20 56 |]).#@27 |Change V|
|00003320| 69 70 65 72 20 73 74 61 | 74 65 20 74 6f 20 56 69 |iper sta|te to Vi|
|00003330| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 69 |...(defa|lias 'vi|
|00003340| 70 65 72 2d 63 68 61 6e | 67 65 2d 73 74 61 74 65 |per-chan|ge-state|
|00003350| 2d 74 6f 2d 76 69 20 23 | 5b 6e 69 6c 20 22 08 ab |-to-vi #|[nil "..|
|00003360| 8a c1 c2 c3 20 5c 22 ac | 83 c4 20 87 0d ab 84 c5 |.... \".|.. .....|
|00003370| c6 21 88 0e 07 ab 83 c8 | 20 88 0e 09 ab 8a 69 0e |.!......| .....i.|
|00003380| 5c 6e 56 ab 84 0e 09 20 | 88 0e 0b cc 73 ab 8d 8a |\nV.... |....s...|
|00003390| cd 79 88 ce cf 21 29 ab | 83 d0 20 88 d1 20 88 d2 |.y...!).|.. .. ..|
|000033a0| 20 88 d3 d4 21 88 d5 0e | 16 21 88 d7 d8 d9 8f 87 | ...!...|.!......|
|000033b0| 22 20 5b 76 69 70 65 72 | 2d 66 69 72 73 74 2d 74 |" [viper|-first-t|
|000033c0| 69 6d 65 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |ime stri|ng-match|
|000033d0| 20 22 2a 4d 69 6e 69 62 | 75 66 2d 22 20 62 75 66 | "*Minib|uf-" buf|
|000033e0| 66 65 72 2d 6e 61 6d 65 | 20 76 69 70 65 72 2d 6d |fer-name| viper-m|
|000033f0| 6f 64 65 20 6f 76 65 72 | 77 72 69 74 65 2d 6d 6f |ode over|write-mo|
|00003400| 64 65 20 6e 69 6c 20 61 | 62 62 72 65 76 2d 6d 6f |de nil a|bbrev-mo|
|00003410| 64 65 20 65 78 70 61 6e | 64 2d 61 62 62 72 65 76 |de expan|d-abbrev|
|00003420| 20 61 75 74 6f 2d 66 69 | 6c 6c 2d 66 75 6e 63 74 | auto-fi|ll-funct|
|00003430| 69 6f 6e 20 66 69 6c 6c | 2d 63 6f 6c 75 6d 6e 20 |ion fill|-column |
|00003440| 6c 61 73 74 2d 63 6f 6d | 6d 61 6e 64 20 28 76 69 |last-com|mand (vi|
|00003450| 70 65 72 2d 61 75 74 6f | 69 6e 64 65 6e 74 20 76 |per-auto|indent v|
|00003460| 69 70 65 72 2d 6f 70 65 | 6e 2d 6c 69 6e 65 20 76 |iper-ope|n-line v|
|00003470| 69 70 65 72 2d 4f 70 65 | 6e 2d 6c 69 6e 65 20 76 |iper-Ope|n-line v|
|00003480| 69 70 65 72 2d 72 65 70 | 6c 61 63 65 2d 73 74 61 |iper-rep|lace-sta|
|00003490| 74 65 2d 65 78 69 74 2d | 63 6d 64 29 20 30 20 6c |te-exit-|cmd) 0 l|
|000034a0| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 5e 5b 20 09 5d |ooking-a|t "^[ .]|
|000034b0| 2a 24 22 20 69 6e 64 65 | 6e 74 2d 74 6f 2d 6c 65 |*$" inde|nt-to-le|
|000034c0| 66 74 2d 6d 61 72 67 69 | 6e 20 76 69 70 65 72 2d |ft-margi|n viper-|
|000034d0| 61 64 64 2d 6e 65 77 6c | 69 6e 65 2d 61 74 2d 65 |add-newl|ine-at-e|
|000034e0| 6f 62 2d 69 66 2d 6e 65 | 63 65 73 73 61 72 79 20 |ob-if-ne|cessary |
|000034f0| 76 69 70 65 72 2d 61 64 | 6a 75 73 74 2d 75 6e 64 |viper-ad|just-und|
|00003500| 6f 20 76 69 70 65 72 2d | 63 68 61 6e 67 65 2d 73 |o viper-|change-s|
|00003510| 74 61 74 65 20 76 69 2d | 73 74 61 74 65 20 76 69 |tate vi-|state vi|
|00003520| 70 65 72 2d 63 68 61 6e | 67 65 2d 63 75 72 73 6f |per-chan|ge-curso|
|00003530| 72 2d 63 6f 6c 6f 72 20 | 76 69 70 65 72 2d 73 61 |r-color |viper-sa|
|00003540| 76 65 64 2d 63 75 72 73 | 6f 72 2d 63 6f 6c 6f 72 |ved-curs|or-color|
|00003550| 20 63 6f 6e 64 73 20 28 | 62 79 74 65 2d 63 6f 64 | conds (|byte-cod|
|00003560| 65 20 22 c0 c1 21 87 22 | 20 5b 72 75 6e 2d 68 6f |e "..!."| [run-ho|
|00003570| 6f 6b 73 20 76 69 70 65 | 72 2d 76 69 2d 73 74 61 |oks vipe|r-vi-sta|
|00003580| 74 65 2d 68 6f 6f 6b 5d | 20 32 29 20 28 28 65 72 |te-hook]| 2) ((er|
|00003590| 72 6f 72 20 28 76 69 70 | 65 72 2d 6d 65 73 73 61 |ror (vip|er-messa|
|000035a0| 67 65 2d 63 6f 6e 64 69 | 74 69 6f 6e 73 20 63 6f |ge-condi|tions co|
|000035b0| 6e 64 73 29 29 29 5d 20 | 33 20 28 23 24 20 2e 20 |nds)))] |3 (#$ . |
|000035c0| 31 33 30 38 30 29 20 6e | 69 6c 5d 29 0a 23 40 33 |13080) n|il]).#@3|
|000035d0| 31 20 43 68 61 6e 67 65 | 20 56 69 70 65 72 20 73 |1 Change| Viper s|
|000035e0| 74 61 74 65 20 74 6f 20 | 49 6e 73 65 72 74 2e 1f |tate to |Insert..|
|000035f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 76 69 70 65 |.(defali|as 'vipe|
|00003600| 72 2d 63 68 61 6e 67 65 | 2d 73 74 61 74 65 2d 74 |r-change|-state-t|
|00003610| 6f 2d 69 6e 73 65 72 74 | 20 23 5b 6e 69 6c 20 22 |o-insert| #[nil "|
|00003620| c0 c1 21 88 5c 6e 3b ac | 99 c3 20 0c 98 ac 93 0d |..!.\n;.|.. .....|
|00003630| ab 88 c6 c7 c8 20 5c 22 | 41 aa 87 c9 ca cb 20 c7 |..... \"|A..... .|
|00003640| 5c 22 21 12 cc cd ce 8f | 87 22 20 5b 76 69 70 65 |\"!.....|." [vipe|
|00003650| 72 2d 63 68 61 6e 67 65 | 2d 73 74 61 74 65 20 69 |r-change|-state i|
|00003660| 6e 73 65 72 74 2d 73 74 | 61 74 65 20 76 69 70 65 |nsert-st|ate vipe|
|00003670| 72 2d 73 61 76 65 64 2d | 63 75 72 73 6f 72 2d 63 |r-saved-|cursor-c|
|00003680| 6f 6c 6f 72 20 76 69 70 | 65 72 2d 67 65 74 2d 63 |olor vip|er-get-c|
|00003690| 75 72 73 6f 72 2d 63 6f | 6c 6f 72 20 76 69 70 65 |ursor-co|lor vipe|
|000036a0| 72 2d 69 6e 73 65 72 74 | 2d 73 74 61 74 65 2d 63 |r-insert|-state-c|
|000036b0| 75 72 73 6f 72 2d 63 6f | 6c 6f 72 20 76 69 70 65 |ursor-co|lor vipe|
|000036c0| 72 2d 65 6d 61 63 73 2d | 70 20 61 73 73 6f 63 20 |r-emacs-|p assoc |
|000036d0| 63 75 72 73 6f 72 2d 63 | 6f 6c 6f 72 20 66 72 61 |cursor-c|olor fra|
|000036e0| 6d 65 2d 70 61 72 61 6d | 65 74 65 72 73 20 63 6f |me-param|eters co|
|000036f0| 6c 6f 72 2d 69 6e 73 74 | 61 6e 63 65 2d 6e 61 6d |lor-inst|ance-nam|
|00003700| 65 20 66 72 61 6d 65 2d | 70 72 6f 70 65 72 74 79 |e frame-|property|
|00003710| 20 73 65 6c 65 63 74 65 | 64 2d 66 72 61 6d 65 20 | selecte|d-frame |
|00003720| 63 6f 6e 64 73 20 28 62 | 79 74 65 2d 63 6f 64 65 |conds (b|yte-code|
|00003730| 20 22 c0 c1 21 87 22 20 | 5b 72 75 6e 2d 68 6f 6f | "..!." |[run-hoo|
|00003740| 6b 73 20 76 69 70 65 72 | 2d 69 6e 73 65 72 74 2d |ks viper|-insert-|
|00003750| 73 74 61 74 65 2d 68 6f | 6f 6b 5d 20 32 29 20 28 |state-ho|ok] 2) (|
|00003760| 28 65 72 72 6f 72 20 28 | 76 69 70 65 72 2d 6d 65 |(error (|viper-me|
|00003770| 73 73 61 67 65 2d 63 6f | 6e 64 69 74 69 6f 6e 73 |ssage-co|nditions|
|00003780| 20 63 6f 6e 64 73 29 29 | 29 5d 20 34 20 28 23 24 | conds))|)] 4 (#$|
|00003790| 20 2e 20 31 33 37 37 38 | 29 20 6e 69 6c 5d 29 0a | . 13778|) nil]).|
|000037a0| 28 64 65 66 61 6c 69 61 | 73 20 27 76 69 70 65 72 |(defalia|s 'viper|
|000037b0| 2d 64 6f 77 6e 67 72 61 | 64 65 2d 74 6f 2d 69 6e |-downgra|de-to-in|
|000037c0| 73 65 72 74 20 23 5b 6e | 69 6c 20 22 c0 11 c2 89 |sert #[n|il "....|
|000037d0| 13 87 22 20 5b 69 6e 73 | 65 72 74 2d 73 74 61 74 |.." [ins|ert-stat|
|000037e0| 65 20 76 69 70 65 72 2d | 63 75 72 72 65 6e 74 2d |e viper-|current-|
|000037f0| 73 74 61 74 65 20 6e 69 | 6c 20 76 69 70 65 72 2d |state ni|l viper-|
|00003800| 72 65 70 6c 61 63 65 2d | 6d 69 6e 6f 72 2d 6d 6f |replace-|minor-mo|
|00003810| 64 65 5d 20 32 5d 29 0a | 28 62 79 74 65 2d 63 6f |de] 2]).|(byte-co|
|00003820| 64 65 20 22 c0 c1 4e c2 | 73 ac 85 c3 c4 c0 5c 22 |de "..N.|s.....\"|
|00003830| 88 c5 c0 c1 c6 23 87 22 | 20 5b 76 69 70 65 72 2d |.....#."| [viper-|
|00003840| 64 6f 77 6e 67 72 61 64 | 65 2d 74 6f 2d 69 6e 73 |downgrad|e-to-ins|
|00003850| 65 72 74 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ert byte|-optimiz|
|00003860| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|00003870| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00003880| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|00003890| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|000038a0| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|000038b0| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|000038c0| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|000038d0| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|000038e0| 5d 20 34 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 4).(de|falias '|
|000038f0| 76 69 70 65 72 2d 63 68 | 61 6e 67 65 2d 73 74 61 |viper-ch|ange-sta|
|00003900| 74 65 2d 74 6f 2d 72 65 | 70 6c 61 63 65 20 23 5b |te-to-re|place #[|
|00003910| 28 26 6f 70 74 69 6f 6e | 61 6c 20 6e 6f 6e 2d 52 |(&option|al non-R|
|00003920| 2d 63 6d 64 29 20 22 c0 | c1 21 88 c2 c3 c4 8f 88 |-cmd) ".|.!......|
|00003930| 0d ab 83 c6 20 87 c7 20 | 87 22 20 5b 76 69 70 65 |.... .. |." [vipe|
|00003940| 72 2d 63 68 61 6e 67 65 | 2d 73 74 61 74 65 20 72 |r-change|-state r|
|00003950| 65 70 6c 61 63 65 2d 73 | 74 61 74 65 20 63 6f 6e |eplace-s|tate con|
|00003960| 64 73 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |ds (byte|-code ".|
|00003970| c1 c2 5c 22 87 22 20 5b | 72 75 6e 2d 68 6f 6f 6b |..\"." [|run-hook|
|00003980| 73 20 76 69 70 65 72 2d | 69 6e 73 65 72 74 2d 73 |s viper-|insert-s|
|00003990| 74 61 74 65 2d 68 6f 6f | 6b 20 76 69 70 65 72 2d |tate-hoo|k viper-|
|000039a0| 72 65 70 6c 61 63 65 2d | 73 74 61 74 65 2d 68 6f |replace-|state-ho|
|000039b0| 6f 6b 5d 20 33 29 20 28 | 28 65 72 72 6f 72 20 28 |ok] 3) (|(error (|
|000039c0| 76 69 70 65 72 2d 6d 65 | 73 73 61 67 65 2d 63 6f |viper-me|ssage-co|
|000039d0| 6e 64 69 74 69 6f 6e 73 | 20 63 6f 6e 64 73 29 29 |nditions| conds))|
|000039e0| 29 20 6e 6f 6e 2d 52 2d | 63 6d 64 20 76 69 70 65 |) non-R-|cmd vipe|
|000039f0| 72 2d 73 74 61 72 74 2d | 72 65 70 6c 61 63 65 20 |r-start-|replace |
|00003a00| 76 69 70 65 72 2d 73 74 | 61 72 74 2d 52 2d 6d 6f |viper-st|art-R-mo|
|00003a10| 64 65 5d 20 33 5d 29 0a | 23 40 33 30 20 43 68 61 |de] 3]).|#@30 Cha|
|00003a20| 6e 67 65 20 56 69 70 65 | 72 20 73 74 61 74 65 20 |nge Vipe|r state |
|00003a30| 74 6f 20 45 6d 61 63 73 | 2e 1f 0a 28 64 65 66 61 |to Emacs|...(defa|
|00003a40| 6c 69 61 73 20 27 76 69 | 70 65 72 2d 63 68 61 6e |lias 'vi|per-chan|
|00003a50| 67 65 2d 73 74 61 74 65 | 2d 74 6f 2d 65 6d 61 63 |ge-state|-to-emac|
|00003a60| 73 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 88 c2 c3 c4 |s #[nil |"..!....|
|00003a70| 8f 87 22 20 5b 76 69 70 | 65 72 2d 63 68 61 6e 67 |.." [vip|er-chang|
|00003a80| 65 2d 73 74 61 74 65 20 | 65 6d 61 63 73 2d 73 74 |e-state |emacs-st|
|00003a90| 61 74 65 20 63 6f 6e 64 | 73 20 28 62 79 74 65 2d |ate cond|s (byte-|
|00003aa0| 63 6f 64 65 20 22 c0 c1 | 21 87 22 20 5b 72 75 6e |code "..|!." [run|
|00003ab0| 2d 68 6f 6f 6b 73 20 76 | 69 70 65 72 2d 65 6d 61 |-hooks v|iper-ema|
|00003ac0| 63 73 2d 73 74 61 74 65 | 2d 68 6f 6f 6b 5d 20 32 |cs-state|-hook] 2|
|00003ad0| 29 20 28 28 65 72 72 6f | 72 20 28 76 69 70 65 72 |) ((erro|r (viper|
|00003ae0| 2d 6d 65 73 73 61 67 65 | 2d 63 6f 6e 64 69 74 69 |-message|-conditi|
|00003af0| 6f 6e 73 20 63 6f 6e 64 | 73 29 29 29 5d 20 33 20 |ons cond|s)))] 3 |
|00003b00| 28 23 24 20 2e 20 31 34 | 38 37 37 29 20 6e 69 6c |(#$ . 14|877) nil|
|00003b10| 5d 29 0a 23 40 31 39 33 | 20 45 73 63 61 70 65 20 |]).#@193| Escape |
|00003b20| 74 6f 20 45 6d 61 63 73 | 20 73 74 61 74 65 20 66 |to Emacs| state f|
|00003b30| 72 6f 6d 20 56 69 20 73 | 74 61 74 65 20 66 6f 72 |rom Vi s|tate for|
|00003b40| 20 6f 6e 65 20 45 6d 61 | 63 73 20 63 6f 6d 6d 61 | one Ema|cs comma|
|00003b50| 6e 64 2e 0a 41 52 47 20 | 69 73 20 75 73 65 64 20 |nd..ARG |is used |
|00003b60| 61 73 20 74 68 65 20 70 | 72 65 66 69 78 20 76 61 |as the p|refix va|
|00003b70| 6c 75 65 20 66 6f 72 20 | 74 68 65 20 65 78 65 63 |lue for |the exec|
|00003b80| 75 74 65 64 20 63 6f 6d | 6d 61 6e 64 2e 20 20 49 |uted com|mand. I|
|00003b90| 66 0a 45 56 45 4e 54 53 | 20 69 73 20 61 20 6c 69 |f.EVENTS| is a li|
|00003ba0| 73 74 20 6f 66 20 65 76 | 65 6e 74 73 2c 20 77 68 |st of ev|ents, wh|
|00003bb0| 69 63 68 20 62 65 63 6f | 6d 65 20 74 68 65 20 62 |ich beco|me the b|
|00003bc0| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 74 68 65 20 |eginning| of the |
|00003bd0| 63 6f 6d 6d 61 6e 64 2e | 1f 0a 28 64 65 66 61 6c |command.|..(defal|
|00003be0| 69 61 73 20 27 76 69 70 | 65 72 2d 65 73 63 61 70 |ias 'vip|er-escap|
|00003bf0| 65 2d 74 6f 2d 65 6d 61 | 63 73 20 23 5b 28 61 72 |e-to-ema|cs #[(ar|
|00003c00| 67 20 26 6f 70 74 69 6f | 6e 61 6c 20 65 76 65 6e |g &optio|nal even|
|00003c10| 74 73 29 20 22 08 c1 55 | ab 84 c2 c3 21 88 c4 0d |ts) "..U|....!...|
|00003c20| 0e 06 c7 23 87 22 20 5b | 6c 61 73 74 2d 63 6f 6d |...#." [|last-com|
|00003c30| 6d 61 6e 64 2d 63 68 61 | 72 20 3f 5c 5c 20 6d 65 |mand-cha|r ?\\ me|
|00003c40| 73 73 61 67 65 20 22 53 | 77 69 74 63 68 65 64 20 |ssage "S|witched |
|00003c50| 74 6f 20 45 4d 41 43 53 | 20 73 74 61 74 65 20 66 |to EMACS| state f|
|00003c60| 6f 72 20 74 68 65 20 6e | 65 78 74 20 63 6f 6d 6d |or the n|ext comm|
|00003c70| 61 6e 64 2e 2e 2e 22 20 | 76 69 70 65 72 2d 65 73 |and..." |viper-es|
|00003c80| 63 61 70 65 2d 74 6f 2d | 73 74 61 74 65 20 61 72 |cape-to-|state ar|
|00003c90| 67 20 65 76 65 6e 74 73 | 20 65 6d 61 63 73 2d 73 |g events| emacs-s|
|00003ca0| 74 61 74 65 5d 20 34 20 | 28 23 24 20 2e 20 31 35 |tate] 4 |(#$ . 15|
|00003cb0| 31 32 39 29 20 22 50 22 | 5d 29 0a 23 40 32 35 34 |129) "P"|]).#@254|
|00003cc0| 20 45 73 63 61 70 65 20 | 66 72 6f 6d 20 45 6d 61 | Escape |from Ema|
|00003cd0| 63 73 20 73 74 61 74 65 | 20 74 6f 20 56 69 20 73 |cs state| to Vi s|
|00003ce0| 74 61 74 65 20 66 6f 72 | 20 6f 6e 65 20 56 69 20 |tate for| one Vi |
|00003cf0| 31 2d 63 68 61 72 61 63 | 74 65 72 20 63 6f 6d 6d |1-charac|ter comm|
|00003d00| 61 6e 64 2e 0a 49 66 20 | 74 68 65 20 56 69 20 63 |and..If |the Vi c|
|00003d10| 6f 6d 6d 61 6e 64 20 74 | 68 61 74 20 74 68 65 20 |ommand t|hat the |
|00003d20| 75 73 65 72 20 74 79 70 | 65 73 20 68 61 73 20 61 |user typ|es has a|
|00003d30| 20 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 | prefix |argument|
|00003d40| 2c 20 65 2e 67 2e 2c 20 | 60 64 32 77 27 2c 20 74 |, e.g., |`d2w', t|
|00003d50| 68 65 6e 0a 56 69 27 73 | 20 70 72 65 66 69 78 20 |hen.Vi's| prefix |
|00003d60| 61 72 67 75 6d 65 6e 74 | 20 77 69 6c 6c 20 62 65 |argument| will be|
|00003d70| 20 75 73 65 64 2e 20 4f | 74 68 65 72 77 69 73 65 | used. O|therwise|
|00003d80| 2c 20 74 68 65 20 70 72 | 65 66 69 78 20 61 72 67 |, the pr|efix arg|
|00003d90| 75 6d 65 6e 74 20 70 61 | 73 73 65 64 20 74 6f 0a |ument pa|ssed to.|
|00003da0| 60 76 69 70 65 72 2d 65 | 73 63 61 70 65 2d 74 6f |`viper-e|scape-to|
|00003db0| 2d 76 69 27 20 69 73 20 | 75 73 65 64 2e 1f 0a 28 |-vi' is |used...(|
|00003dc0| 64 65 66 61 6c 69 61 73 | 20 27 76 69 70 65 72 2d |defalias| 'viper-|
|00003dd0| 65 73 63 61 70 65 2d 74 | 6f 2d 76 69 20 23 5b 28 |escape-t|o-vi #[(|
|00003de0| 61 72 67 29 20 22 c0 c1 | 21 88 c2 0b c4 c5 23 87 |arg) "..|!.....#.|
|00003df0| 22 20 5b 6d 65 73 73 61 | 67 65 20 22 53 77 69 74 |" [messa|ge "Swit|
|00003e00| 63 68 65 64 20 74 6f 20 | 56 49 20 73 74 61 74 65 |ched to |VI state|
|00003e10| 20 66 6f 72 20 74 68 65 | 20 6e 65 78 74 20 63 6f | for the| next co|
|00003e20| 6d 6d 61 6e 64 2e 2e 2e | 22 20 76 69 70 65 72 2d |mmand...|" viper-|
|00003e30| 65 73 63 61 70 65 2d 74 | 6f 2d 73 74 61 74 65 20 |escape-t|o-state |
|00003e40| 61 72 67 20 6e 69 6c 20 | 76 69 2d 73 74 61 74 65 |arg nil |vi-state|
|00003e50| 5d 20 34 20 28 23 24 20 | 2e 20 31 35 35 35 33 29 |] 4 (#$ |. 15553)|
|00003e60| 20 22 50 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "P"]).(|defalias|
|00003e70| 20 27 76 69 70 65 72 2d | 65 73 63 61 70 65 2d 74 | 'viper-|escape-t|
|00003e80| 6f 2d 73 74 61 74 65 20 | 23 5b 28 61 72 67 20 65 |o-state |#[(arg e|
|00003e90| 76 65 6e 74 73 20 73 74 | 61 74 65 29 20 22 c0 89 |vents st|ate) "..|
|00003ea0| 19 1a c3 0c 21 88 c5 20 | 88 0e 06 ab 85 c7 0e 06 |....!.. |........|
|00003eb0| 21 88 c0 c8 c9 8f 88 2a | c3 0e 5c 6e 21 87 22 20 |!......*|..\n!." |
|00003ec0| 5b 6e 69 6c 20 6b 65 79 | 20 63 6f 6d 20 76 69 70 |[nil key| com vip|
|00003ed0| 65 72 2d 73 65 74 2d 6d | 6f 64 65 2d 76 61 72 73 |er-set-m|ode-vars|
|00003ee0| 2d 66 6f 72 20 73 74 61 | 74 65 20 76 69 70 65 72 |-for sta|te viper|
|00003ef0| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 2d 6d 69 6e 6f 72 |-normali|ze-minor|
|00003f00| 2d 6d 6f 64 65 2d 6d 61 | 70 2d 61 6c 69 73 74 20 |-mode-ma|p-alist |
|00003f10| 65 76 65 6e 74 73 20 76 | 69 70 65 72 2d 73 65 74 |events v|iper-set|
|00003f20| 2d 75 6e 72 65 61 64 2d | 63 6f 6d 6d 61 6e 64 2d |-unread-|command-|
|00003f30| 65 76 65 6e 74 73 20 28 | 62 79 74 65 2d 63 6f 64 |events (|byte-cod|
|00003f40| 65 20 22 c0 89 89 19 1a | 1b c0 8e c4 0d ab 85 c6 |e ".....|........|
|00003f50| c0 21 aa 84 c6 c0 c7 5c | 22 89 16 08 21 16 09 ca |.!.....\|"...!...|
|00003f60| 0e 09 21 ab 88 c4 0e 09 | 21 16 09 aa 72 29 cb 0e |..!.....|!...r)..|
|00003f70| 0c 21 88 0e 09 16 0d 0d | ab 96 ce 0e 08 89 1e 0f |.!......|........|
|00003f80| 89 47 53 9c 29 21 16 10 | d1 0e 10 21 16 12 aa 91 |.GS.)!..|...!....|
|00003f90| ce 0e 08 89 1e 0f 89 47 | 53 9c 29 21 89 16 10 16 |.......G|S.)!....|
|00003fa0| 12 d3 0e 09 21 ab 8d 0e | 14 ae 82 0e 15 16 14 d6 |....!...|........|
|00003fb0| 0e 09 21 88 2b c0 87 22 | 20 5b 6e 69 6c 20 76 69 |..!.+.."| [nil vi|
|00003fc0| 70 65 72 2d 65 6d 61 63 | 73 2d 6b 62 64 2d 6d 69 |per-emac|s-kbd-mi|
|00003fd0| 6e 6f 72 2d 6d 6f 64 65 | 20 76 69 70 65 72 2d 69 |nor-mode| viper-i|
|00003fe0| 6e 73 65 72 74 2d 6b 62 | 64 2d 6d 69 6e 6f 72 2d |nsert-kb|d-minor-|
|00003ff0| 6d 6f 64 65 20 76 69 70 | 65 72 2d 76 69 2d 6b 62 |mode vip|er-vi-kb|
|00004000| 64 2d 6d 69 6e 6f 72 2d | 6d 6f 64 65 20 6b 65 79 |d-minor-|mode key|
|00004010| 2d 62 69 6e 64 69 6e 67 | 20 76 69 70 65 72 2d 78 |-binding| viper-x|
|00004020| 65 6d 61 63 73 2d 70 20 | 72 65 61 64 2d 6b 65 79 |emacs-p |read-key|
|00004030| 2d 73 65 71 75 65 6e 63 | 65 20 74 20 6b 65 79 20 |-sequenc|e t key |
|00004040| 63 6f 6d 20 76 65 63 74 | 6f 72 70 20 76 69 70 65 |com vect|orp vipe|
|00004050| 72 2d 73 65 74 2d 6d 6f | 64 65 2d 76 61 72 73 2d |r-set-mo|de-vars-|
|00004060| 66 6f 72 20 76 69 70 65 | 72 2d 63 75 72 72 65 6e |for vipe|r-curren|
|00004070| 74 2d 73 74 61 74 65 20 | 74 68 69 73 2d 63 6f 6d |t-state |this-com|
|00004080| 6d 61 6e 64 20 76 69 70 | 65 72 2d 63 6f 70 79 2d |mand vip|er-copy-|
|00004090| 65 76 65 6e 74 20 73 65 | 71 20 6c 61 73 74 2d 63 |event se|q last-c|
|000040a0| 6f 6d 6d 61 6e 64 2d 65 | 76 65 6e 74 20 65 76 65 |ommand-e|vent eve|
|000040b0| 6e 74 2d 74 6f 2d 63 68 | 61 72 61 63 74 65 72 20 |nt-to-ch|aracter |
|000040c0| 6c 61 73 74 2d 63 6f 6d | 6d 61 6e 64 2d 63 68 61 |last-com|mand-cha|
|000040d0| 72 20 63 6f 6d 6d 61 6e | 64 70 20 70 72 65 66 69 |r comman|dp prefi|
|000040e0| 78 2d 61 72 67 20 61 72 | 67 20 63 6f 6d 6d 61 6e |x-arg ar|g comman|
|000040f0| 64 2d 65 78 65 63 75 74 | 65 5d 20 35 29 20 28 28 |d-execut|e] 5) ((|
|00004100| 71 75 69 74 20 28 64 69 | 6e 67 29 29 20 28 65 72 |quit (di|ng)) (er|
|00004110| 72 6f 72 20 28 62 65 65 | 70 20 31 29 29 29 20 76 |ror (bee|p 1))) v|
|00004120| 69 70 65 72 2d 63 75 72 | 72 65 6e 74 2d 73 74 61 |iper-cur|rent-sta|
|00004130| 74 65 5d 20 33 5d 29 0a | 23 40 36 34 20 45 78 65 |te] 3]).|#@64 Exe|
|00004140| 63 75 74 65 20 46 4f 52 | 4d 20 69 6e 20 56 69 20 |cute FOR|M in Vi |
|00004150| 73 74 61 74 65 2c 20 72 | 65 67 61 72 64 6c 65 73 |state, r|egardles|
|00004160| 73 20 6f 66 20 74 68 65 | 20 43 63 75 72 72 65 6e |s of the| Ccurren|
|00004170| 74 20 56 69 20 73 74 61 | 74 65 2e 1f 0a 28 64 65 |t Vi sta|te...(de|
|00004180| 66 61 6c 69 61 73 20 27 | 76 69 70 65 72 2d 65 78 |falias '|viper-ex|
|00004190| 65 63 2d 66 6f 72 6d 2d | 69 6e 2d 76 69 20 23 5b |ec-form-|in-vi #[|
|000041a0| 28 66 6f 72 6d 29 20 22 | 70 c0 19 1a c3 c4 21 88 |(form) "|p.....!.|
|000041b0| c0 c5 c6 8f 88 5c 6e 70 | 6b ac 8a 8a 5c 6e 71 88 |.....\np|k...\nq.|
|000041c0| c3 0e 07 21 88 29 c3 0e | 07 21 88 09 2a 87 22 20 |...!.)..|.!..*." |
|000041d0| 5b 6e 69 6c 20 72 65 73 | 75 6c 74 20 62 75 66 66 |[nil res|ult buff|
|000041e0| 20 76 69 70 65 72 2d 73 | 65 74 2d 6d 6f 64 65 2d | viper-s|et-mode-|
|000041f0| 76 61 72 73 2d 66 6f 72 | 20 76 69 2d 73 74 61 74 |vars-for| vi-stat|
|00004200| 65 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 19 |e (byte-|code "..|
|00004210| c2 0b 21 14 29 c0 87 22 | 20 5b 6e 69 6c 20 76 69 |..!.).."| [nil vi|
|00004220| 70 65 72 2d 76 69 2d 6b | 62 64 2d 6d 69 6e 6f 72 |per-vi-k|bd-minor|
|00004230| 2d 6d 6f 64 65 20 65 76 | 61 6c 20 66 6f 72 6d 20 |-mode ev|al form |
|00004240| 72 65 73 75 6c 74 5d 20 | 32 29 20 28 28 65 72 72 |result] |2) ((err|
|00004250| 6f 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |or (byte|-code ".|
|00004260| c1 c2 5c 22 87 22 20 5b | 73 69 67 6e 61 6c 20 71 |..\"." [|signal q|
|00004270| 75 69 74 20 6e 69 6c 5d | 20 33 29 29 29 20 76 69 |uit nil]| 3))) vi|
|00004280| 70 65 72 2d 63 75 72 72 | 65 6e 74 2d 73 74 61 74 |per-curr|ent-stat|
|00004290| 65 5d 20 33 20 28 23 24 | 20 2e 20 31 36 37 30 31 |e] 3 (#$| . 16701|
|000042a0| 29 5d 29 0a 23 40 31 34 | 33 20 45 78 65 63 75 74 |)]).#@14|3 Execut|
|000042b0| 65 20 46 4f 52 4d 20 69 | 6e 20 45 6d 61 63 73 2c |e FORM i|n Emacs,|
|000042c0| 20 74 65 6d 70 6f 72 61 | 72 69 6c 79 20 64 69 73 | tempora|rily dis|
|000042d0| 61 62 6c 69 6e 67 20 56 | 69 70 65 72 27 73 20 6d |abling V|iper's m|
|000042e0| 69 6e 6f 72 20 6d 6f 64 | 65 73 2e 0a 53 69 6d 69 |inor mod|es..Simi|
|000042f0| 6c 61 72 20 74 6f 20 76 | 69 70 65 72 2d 65 73 63 |lar to v|iper-esc|
|00004300| 61 70 65 2d 74 6f 2d 65 | 6d 61 63 73 2c 20 62 75 |ape-to-e|macs, bu|
|00004310| 74 20 61 63 63 65 70 74 | 73 20 66 6f 72 6d 73 20 |t accept|s forms |
|00004320| 72 61 74 68 65 72 20 74 | 68 61 6e 20 6b 65 79 73 |rather t|han keys|
|00004330| 74 72 6f 6b 65 73 2e 1f | 0a 28 64 65 66 61 6c 69 |trokes..|.(defali|
|00004340| 61 73 20 27 76 69 70 65 | 72 2d 65 78 65 63 2d 66 |as 'vipe|r-exec-f|
|00004350| 6f 72 6d 2d 69 6e 2d 65 | 6d 61 63 73 20 23 5b 28 |orm-in-e|macs #[(|
|00004360| 66 6f 72 6d 29 20 22 70 | c0 19 1a c3 c4 21 88 c5 |form) "p|.....!..|
|00004370| 0e 06 21 11 5c 6e 70 6b | ac 8a 8a 5c 6e 71 88 c3 |..!.\npk|...\nq..|
|00004380| 0e 07 21 88 29 c3 0e 07 | 21 88 09 2a 87 22 20 5b |..!.)...|!..*." [|
|00004390| 6e 69 6c 20 72 65 73 75 | 6c 74 20 62 75 66 66 20 |nil resu|lt buff |
|000043a0| 76 69 70 65 72 2d 73 65 | 74 2d 6d 6f 64 65 2d 76 |viper-se|t-mode-v|
|000043b0| 61 72 73 2d 66 6f 72 20 | 65 6d 61 63 73 2d 73 74 |ars-for |emacs-st|
|000043c0| 61 74 65 20 65 76 61 6c | 20 66 6f 72 6d 20 76 69 |ate eval| form vi|
|000043d0| 70 65 72 2d 63 75 72 72 | 65 6e 74 2d 73 74 61 74 |per-curr|ent-stat|
|000043e0| 65 5d 20 32 20 28 23 24 | 20 2e 20 31 37 30 36 36 |e] 2 (#$| . 17066|
|000043f0| 29 5d 29 0a 23 40 33 39 | 33 20 46 61 6d 69 6c 69 |)]).#@39|3 Famili|
|00004400| 61 72 69 7a 65 20 56 69 | 70 65 72 20 77 69 74 68 |arize Vi|per with|
|00004410| 20 61 20 6d 69 6e 6f 72 | 20 6d 6f 64 65 20 64 65 | a minor| mode de|
|00004420| 66 69 6e 65 64 20 69 6e | 20 4c 4f 41 44 5f 46 49 |fined in| LOAD_FI|
|00004430| 4c 45 2e 0a 4d 69 6e 6f | 72 20 6d 6f 64 65 73 20 |LE..Mino|r modes |
|00004440| 74 68 61 74 20 68 61 76 | 65 20 74 68 65 69 72 20 |that hav|e their |
|00004450| 6f 77 6e 20 6b 65 79 6d | 61 70 73 20 6d 61 79 20 |own keym|aps may |
|00004460| 6f 76 65 72 73 68 61 64 | 6f 77 20 56 69 70 65 72 |overshad|ow Viper|
|00004470| 20 6b 65 79 6d 61 70 73 | 2e 0a 54 68 69 73 20 66 | keymaps|..This f|
|00004480| 75 6e 63 74 69 6f 6e 20 | 69 73 20 64 65 73 69 67 |unction |is desig|
|00004490| 6e 65 64 20 74 6f 20 6d | 61 6b 65 20 56 69 70 65 |ned to m|ake Vipe|
|000044a0| 72 20 61 77 61 72 65 20 | 6f 66 20 74 68 65 20 70 |r aware |of the p|
|000044b0| 61 63 6b 61 67 65 73 20 | 74 68 61 74 20 64 65 66 |ackages |that def|
|000044c0| 69 6e 65 0a 73 75 63 68 | 20 6d 69 6e 6f 72 20 6d |ine.such| minor m|
|000044d0| 6f 64 65 73 2e 0a 55 73 | 61 67 65 3a 0a 20 20 20 |odes..Us|age:. |
|000044e0| 20 28 76 69 70 65 72 2d | 68 61 72 6e 65 73 73 2d | (viper-|harness-|
|000044f0| 6d 69 6e 6f 72 2d 6d 6f | 64 65 20 6c 6f 61 64 2d |minor-mo|de load-|
|00004500| 66 69 6c 65 29 0a 0a 4c | 4f 41 44 2d 46 49 4c 45 |file)..L|OAD-FILE|
|00004510| 20 69 73 20 61 20 6e 61 | 6d 65 20 6f 66 20 74 68 | is a na|me of th|
|00004520| 65 20 66 69 6c 65 20 77 | 68 65 72 65 20 74 68 65 |e file w|here the|
|00004530| 20 73 70 65 63 69 66 69 | 63 20 6d 69 6e 6f 72 20 | specifi|c minor |
|00004540| 6d 6f 64 65 20 69 73 20 | 64 65 66 69 6e 65 64 2e |mode is |defined.|
|00004550| 0a 53 75 66 66 69 78 65 | 73 20 73 75 63 68 20 61 |.Suffixe|s such a|
|00004560| 73 20 2e 65 6c 20 6f 72 | 20 2e 65 6c 63 20 73 68 |s .el or| .elc sh|
|00004570| 6f 75 6c 64 20 62 65 20 | 73 74 72 69 70 70 65 64 |ould be |stripped|
|00004580| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 69 |...(defa|lias 'vi|
|00004590| 70 65 72 2d 68 61 72 6e | 65 73 73 2d 6d 69 6e 6f |per-harn|ess-mino|
|000045a0| 72 2d 6d 6f 64 65 20 23 | 5b 28 6c 6f 61 64 2d 66 |r-mode #|[(load-f|
|000045b0| 69 6c 65 29 20 22 c0 09 | c2 5c 22 88 c0 09 c3 5c |ile) "..|.\"....\|
|000045c0| 22 87 22 20 5b 65 76 61 | 6c 2d 61 66 74 65 72 2d |"." [eva|l-after-|
|000045d0| 6c 6f 61 64 20 6c 6f 61 | 64 2d 66 69 6c 65 20 28 |load loa|d-file (|
|000045e0| 76 69 70 65 72 2d 6e 6f | 72 6d 61 6c 69 7a 65 2d |viper-no|rmalize-|
|000045f0| 6d 69 6e 6f 72 2d 6d 6f | 64 65 2d 6d 61 70 2d 61 |minor-mo|de-map-a|
|00004600| 6c 69 73 74 29 20 28 73 | 65 74 71 2d 64 65 66 61 |list) (s|etq-defa|
|00004610| 75 6c 74 20 6d 69 6e 6f | 72 2d 6d 6f 64 65 2d 6d |ult mino|r-mode-m|
|00004620| 61 70 2d 61 6c 69 73 74 | 20 6d 69 6e 6f 72 2d 6d |ap-alist| minor-m|
|00004630| 6f 64 65 2d 6d 61 70 2d | 61 6c 69 73 74 29 5d 20 |ode-map-|alist)] |
|00004640| 33 20 28 23 24 20 2e 20 | 31 37 34 30 32 29 20 22 |3 (#$ . |17402) "|
|00004650| 73 45 6e 74 65 72 20 6e | 61 6d 65 20 6f 66 20 74 |sEnter n|ame of t|
|00004660| 68 65 20 6c 6f 61 64 20 | 66 69 6c 65 3a 20 22 5d |he load |file: "]|
|00004670| 29 0a 23 40 35 30 32 20 | 45 6d 75 6c 61 74 65 20 |).#@502 |Emulate |
|00004680| 45 53 43 20 6b 65 79 20 | 69 6e 20 45 6d 61 63 73 |ESC key |in Emacs|
|00004690| 2e 0a 50 72 65 76 65 6e | 74 73 20 6d 75 6c 74 69 |..Preven|ts multi|
|000046a0| 70 6c 65 20 65 73 63 61 | 70 65 20 6b 65 79 73 74 |ple esca|pe keyst|
|000046b0| 72 6f 6b 65 73 20 69 66 | 20 76 69 70 65 72 2d 6e |rokes if| viper-n|
|000046c0| 6f 2d 6d 75 6c 74 69 70 | 6c 65 2d 45 53 43 20 69 |o-multip|le-ESC i|
|000046d0| 73 20 74 72 75 65 2e 0a | 49 66 20 76 69 70 65 72 |s true..|If viper|
|000046e0| 2d 6e 6f 2d 6d 75 6c 74 | 69 70 6c 65 2d 45 53 43 |-no-mult|iple-ESC|
|000046f0| 20 69 73 20 27 74 77 69 | 63 65 20 64 6f 75 62 6c | is 'twi|ce doubl|
|00004700| 65 20 45 53 43 20 77 6f | 75 6c 64 20 64 69 6e 67 |e ESC wo|uld ding|
|00004710| 20 69 6e 20 76 69 2d 73 | 74 61 74 65 2e 0a 4f 74 | in vi-s|tate..Ot|
|00004720| 68 65 72 20 45 53 43 20 | 73 65 71 75 65 6e 63 65 |her ESC |sequence|
|00004730| 73 20 61 72 65 20 65 6d | 75 6c 61 74 65 64 20 76 |s are em|ulated v|
|00004740| 69 61 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 45 |ia the c|urrent E|
|00004750| 6d 61 63 73 27 73 20 6d | 61 6a 6f 72 20 6d 6f 64 |macs's m|ajor mod|
|00004760| 65 0a 6b 65 79 6d 61 70 | 2e 20 54 68 69 73 20 69 |e.keymap|. This i|
|00004770| 73 20 6d 6f 72 65 20 63 | 6f 6e 76 65 6e 69 65 6e |s more c|onvenien|
|00004780| 74 20 6f 6e 20 54 54 59 | 73 2c 20 73 69 6e 63 65 |t on TTY|s, since|
|00004790| 20 74 68 69 73 20 77 6f | 6e 27 74 20 62 6c 6f 63 | this wo|n't bloc|
|000047a0| 6b 0a 66 75 6e 63 74 69 | 6f 6e 20 6b 65 79 73 20 |k.functi|on keys |
|000047b0| 73 75 63 68 20 61 73 20 | 75 70 2c 64 6f 77 6e 2c |such as |up,down,|
|000047c0| 20 65 74 63 2e 20 45 53 | 43 20 77 69 6c 6c 20 61 | etc. ES|C will a|
|000047d0| 6c 73 6f 20 77 69 6c 6c | 20 61 6c 73 6f 20 77 6f |lso will| also wo|
|000047e0| 72 6b 20 61 73 0a 61 20 | 4d 65 74 61 20 6b 65 79 |rk as.a |Meta key|
|000047f0| 20 69 6e 20 74 68 69 73 | 20 63 61 73 65 2e 20 57 | in this| case. W|
|00004800| 68 65 6e 20 76 69 70 65 | 72 2d 6e 6f 2d 6d 75 6c |hen vipe|r-no-mul|
|00004810| 74 69 70 6c 65 2d 45 53 | 43 20 69 73 20 6e 69 6c |tiple-ES|C is nil|
|00004820| 2c 20 45 53 43 20 66 75 | 6e 63 74 69 6f 6e 73 0a |, ESC fu|nctions.|
|00004830| 61 73 20 61 20 4d 65 74 | 61 20 6b 65 79 20 61 6e |as a Met|a key an|
|00004840| 64 20 61 6e 79 20 6e 75 | 6d 62 65 72 20 6f 66 20 |d any nu|mber of |
|00004850| 6d 75 6c 74 69 70 6c 65 | 20 65 73 63 61 70 65 73 |multiple| escapes|
|00004860| 20 69 73 20 61 6c 6c 6f | 77 65 64 2e 1f 0a 28 64 | is allo|wed...(d|
|00004870| 65 66 61 6c 69 61 73 20 | 27 76 69 70 65 72 2d 45 |efalias |'viper-E|
|00004880| 53 43 20 23 5b 28 61 72 | 67 29 20 22 c0 19 5c 6e |SC #[(ar|g) "..\n|
|00004890| ac 91 0b c4 61 ab 8c c5 | 20 11 c6 0e 07 c8 09 44 |....a...| ......D|
|000048a0| 5c 22 aa a4 5c 6e c9 61 | ab 9d 0b c4 61 ab 98 c5 |\"..\n.a|....a...|
|000048b0| 20 89 11 ca 0e 0b 21 55 | ab 84 cc 20 aa 8b c6 0e | .....!U|... ....|
|000048c0| 07 c8 09 44 5c 22 aa 82 | cc 20 29 87 22 20 5b 6e |...D\"..|. )." [n|
|000048d0| 69 6c 20 63 68 61 72 20 | 76 69 70 65 72 2d 6e 6f |il char |viper-no|
|000048e0| 2d 6d 75 6c 74 69 70 6c | 65 2d 45 53 43 20 76 69 |-multipl|e-ESC vi|
|000048f0| 70 65 72 2d 63 75 72 72 | 65 6e 74 2d 73 74 61 74 |per-curr|ent-stat|
|00004900| 65 20 76 69 2d 73 74 61 | 74 65 20 76 69 70 65 72 |e vi-sta|te viper|
|00004910| 2d 72 65 61 64 2d 63 68 | 61 72 2d 65 78 63 6c 75 |-read-ch|ar-exclu|
|00004920| 73 69 76 65 20 76 69 70 | 65 72 2d 65 73 63 61 70 |sive vip|er-escap|
|00004930| 65 2d 74 6f 2d 65 6d 61 | 63 73 20 61 72 67 20 3f |e-to-ema|cs arg ?|
|00004940| 5c 5e 5b 20 74 77 69 63 | 65 20 73 74 72 69 6e 67 |\^[ twic|e string|
|00004950| 2d 74 6f 2d 63 68 61 72 | 20 76 69 70 65 72 2d 45 |-to-char| viper-E|
|00004960| 53 43 2d 6b 65 79 20 64 | 69 6e 67 5d 20 35 20 28 |SC-key d|ing] 5 (|
|00004970| 23 24 20 2e 20 31 38 30 | 34 30 29 20 22 50 22 5d |#$ . 180|40) "P"]|
|00004980| 29 0a 23 40 32 36 20 53 | 69 6d 75 6c 61 74 65 20 |).#@26 S|imulate |
|00004990| 45 6d 61 63 73 20 4d 65 | 74 61 20 6b 65 79 2e 1f |Emacs Me|ta key..|
|000049a0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 76 69 70 65 |.(defali|as 'vipe|
|000049b0| 72 2d 61 6c 74 65 72 6e | 61 74 65 2d 4d 65 74 61 |r-altern|ate-Meta|
|000049c0| 2d 6b 65 79 20 23 5b 28 | 61 72 67 29 20 22 c0 c1 |-key #[(|arg) "..|
|000049d0| 21 88 c2 c3 21 88 c4 0d | c6 5c 22 87 22 20 5b 73 |!...!...|.\"." [s|
|000049e0| 69 74 2d 66 6f 72 20 31 | 20 6d 65 73 73 61 67 65 |it-for 1| message|
|000049f0| 20 22 45 53 43 2d 22 20 | 76 69 70 65 72 2d 65 73 | "ESC-" |viper-es|
|00004a00| 63 61 70 65 2d 74 6f 2d | 65 6d 61 63 73 20 61 72 |cape-to-|emacs ar|
|00004a10| 67 20 28 3f 5c 5e 5b 29 | 5d 20 33 20 28 23 24 20 |g (?\^[)|] 3 (#$ |
|00004a20| 2e 20 31 38 38 32 33 29 | 20 22 50 22 5d 29 0a 23 |. 18823)| "P"]).#|
|00004a30| 40 33 37 20 41 63 74 69 | 6f 6e 20 62 6f 75 6e 64 |@37 Acti|on bound|
|00004a40| 20 74 6f 20 60 76 69 70 | 65 72 2d 74 6f 67 67 6c | to `vip|er-toggl|
|00004a50| 65 2d 6b 65 79 27 2e 1f | 0a 28 64 65 66 61 6c 69 |e-key'..|.(defali|
|00004a60| 61 73 20 27 76 69 70 65 | 72 2d 74 6f 67 67 6c 65 |as 'vipe|r-toggle|
|00004a70| 2d 6b 65 79 2d 61 63 74 | 69 6f 6e 20 23 5b 6e 69 |-key-act|ion #[ni|
|00004a80| 6c 20 22 08 c1 57 ab 8f | 5c 6e c3 6b ab 8a c4 20 |l "..W..|\n.k... |
|00004a90| ab 83 c5 20 87 c6 20 87 | c7 20 87 22 20 5b 76 69 |... .. .|. ." [vi|
|00004aa0| 70 65 72 2d 65 78 70 65 | 72 74 2d 6c 65 76 65 6c |per-expe|rt-level|
|00004ab0| 20 32 20 76 69 70 65 72 | 2d 74 6f 67 67 6c 65 2d | 2 viper|-toggle-|
|00004ac0| 6b 65 79 20 22 1a 22 20 | 76 69 70 65 72 2d 77 69 |key "." |viper-wi|
|00004ad0| 6e 64 6f 77 2d 64 69 73 | 70 6c 61 79 2d 70 20 76 |ndow-dis|play-p v|
|00004ae0| 69 70 65 72 2d 69 63 6f | 6e 69 66 79 20 73 75 73 |iper-ico|nify sus|
|00004af0| 70 65 6e 64 2d 65 6d 61 | 63 73 20 76 69 70 65 72 |pend-ema|cs viper|
|00004b00| 2d 63 68 61 6e 67 65 2d | 73 74 61 74 65 2d 74 6f |-change-|state-to|
|00004b10| 2d 65 6d 61 63 73 5d 20 | 32 20 28 23 24 20 2e 20 |-emacs] |2 (#$ . |
|00004b20| 31 38 39 39 36 29 20 6e | 69 6c 5d 29 0a 28 64 65 |18996) n|il]).(de|
|00004b30| 66 61 6c 69 61 73 20 27 | 76 69 70 65 72 2d 65 6e |falias '|viper-en|
|00004b40| 76 65 6c 6f 70 2d 45 53 | 43 2d 6b 65 79 20 23 5b |velop-ES|C-key #[|
|00004b50| 6e 69 6c 20 22 08 c1 c2 | 1b 1c 89 1d 1d c6 c7 0d |nil "...|........|
|00004b60| 21 1e 08 1e 09 0e 08 0e | 09 b6 2b 83 d2 00 ca cb |!.......|..+.....|
|00004b70| 08 21 ab 84 0e 0c aa 82 | 0e 0d ce 5c 22 84 b7 00 |.!......|...\"...|
|00004b80| c2 1e 0f d0 0d 21 88 d1 | d2 d3 4e b7 41 1e 11 d4 |.....!..|..N.A...|
|00004b90| 0e 11 21 ad 83 0e 11 4b | 29 c2 21 14 29 0c d5 9c |..!....K|).!.)...|
|00004ba0| 1e 16 d7 0e 16 21 1e 18 | 0e 16 1d c6 c7 0d 21 1e |.....!..|......!.|
|00004bb0| 08 1e 09 0e 08 0e 09 b6 | 2b ab 98 d0 d9 0c da 5c |........|+......\|
|00004bc0| 22 21 88 0d 10 0e 1b ab | 83 dc aa 85 dd de df 21 |"!......|.......!|
|00004bd0| 21 14 aa b7 0e 20 ab a7 | e1 0e 16 21 ab a1 0e 18 |!.... ..|...!....|
|00004be0| e2 6b ab 9b d0 e3 dd de | e4 0e 16 21 21 21 d9 0c |.k......|...!!!..|
|00004bf0| da 5c 22 5c 22 21 88 0d | 10 dd de df 21 21 14 aa |.\"\"!..|....!!..|
|00004c00| 8c e5 0e 16 21 ab 86 e6 | 0e 16 21 16 27 2a aa 9f |....!...|..!.'*..|
|00004c10| d0 0d 21 88 d1 d2 d3 4e | b7 41 1e 11 d4 0e 11 21 |..!....N|.A.....!|
|00004c20| ad 83 0e 11 4b 29 c2 21 | 14 aa 84 dd 0d 21 14 0c |....K).!|.....!..|
|00004c30| 2b 87 22 20 5b 6c 61 73 | 74 2d 69 6e 70 75 74 2d |+." [las|t-input-|
|00004c40| 65 76 65 6e 74 20 5b 6e | 69 6c 5d 20 6e 69 6c 20 |event [n|il] nil |
|00004c50| 69 6e 68 69 62 69 74 2d | 71 75 69 74 20 6b 65 79 |inhibit-|quit key|
|00004c60| 73 65 71 20 65 76 65 6e | 74 20 28 3f 5c 5e 5b 20 |seq even|t (?\^[ |
|00004c70| 28 63 6f 6e 74 72 6f 6c | 20 5c 5b 29 20 65 73 63 |(control| \[) esc|
|00004c80| 61 70 65 29 20 76 69 70 | 65 72 2d 65 76 65 6e 74 |ape) vip|er-event|
|00004c90| 2d 6b 65 79 20 6b 65 79 | 20 45 53 43 2d 6b 65 79 |-key key| ESC-key|
|00004ca0| 73 20 76 69 70 65 72 2d | 73 69 74 2d 66 6f 72 2d |s viper-|sit-for-|
|00004cb0| 73 68 6f 72 74 20 76 69 | 70 65 72 2d 45 53 43 2d |short vi|per-ESC-|
|00004cc0| 65 76 65 6e 74 2d 70 20 | 76 69 70 65 72 2d 45 53 |event-p |viper-ES|
|00004cd0| 43 2d 6b 65 79 73 65 71 | 2d 74 69 6d 65 6f 75 74 |C-keyseq|-timeout|
|00004ce0| 20 76 69 70 65 72 2d 66 | 61 73 74 2d 6b 65 79 73 | viper-f|ast-keys|
|00004cf0| 65 71 2d 74 69 6d 65 6f | 75 74 20 74 20 6d 69 6e |eq-timeo|ut t min|
|00004d00| 6f 72 2d 6d 6f 64 65 2d | 6d 61 70 2d 61 6c 69 73 |or-mode-|map-alis|
|00004d10| 74 20 76 69 70 65 72 2d | 73 65 74 2d 75 6e 72 65 |t viper-|set-unre|
|00004d20| 61 64 2d 63 6f 6d 6d 61 | 6e 64 2d 65 76 65 6e 74 |ad-comma|nd-event|
|00004d30| 73 20 6f 72 69 67 6e 61 | 6d 65 20 72 65 61 64 2d |s origna|me read-|
|00004d40| 6b 65 79 2d 73 65 71 75 | 65 6e 63 65 20 61 64 2d |key-sequ|ence ad-|
|00004d50| 61 64 76 69 63 65 2d 69 | 6e 66 6f 20 66 62 6f 75 |advice-i|nfo fbou|
|00004d60| 6e 64 70 20 30 20 66 69 | 72 73 74 2d 6b 65 79 20 |ndp 0 fi|rst-key |
|00004d70| 65 76 65 6e 74 2d 6d 6f | 64 69 66 69 65 72 73 20 |event-mo|difiers |
|00004d80| 6b 65 79 2d 6d 6f 64 20 | 73 75 62 73 65 71 20 31 |key-mod |subseq 1|
|00004d90| 20 76 69 70 65 72 2d 65 | 6d 61 63 73 2d 70 20 22 | viper-e|macs-p "|
|00004da0| 1b 22 20 76 65 63 74 6f | 72 20 63 68 61 72 61 63 |." vecto|r charac|
|00004db0| 74 65 72 2d 74 6f 2d 65 | 76 65 6e 74 20 3f 5c 5e |ter-to-e|vent ?\^|
|00004dc0| 5b 20 76 69 70 65 72 2d | 78 65 6d 61 63 73 2d 70 |[ viper-|xemacs-p|
|00004dd0| 20 6b 65 79 2d 70 72 65 | 73 73 2d 65 76 65 6e 74 | key-pre|ss-event|
|00004de0| 2d 70 20 28 6d 65 74 61 | 29 20 76 63 6f 6e 63 61 |-p (meta|) vconca|
|00004df0| 74 20 65 76 65 6e 74 2d | 6b 65 79 20 65 76 65 6e |t event-|key even|
|00004e00| 74 70 20 76 69 70 65 72 | 2d 63 6f 70 79 2d 65 76 |tp viper|-copy-ev|
|00004e10| 65 6e 74 20 6c 61 73 74 | 2d 63 6f 6d 6d 61 6e 64 |ent last|-command|
|00004e20| 2d 65 76 65 6e 74 5d 20 | 37 5d 29 0a 23 40 36 30 |-event] |7]).#@60|
|00004e30| 20 46 75 6e 63 74 69 6f | 6e 20 74 68 61 74 20 69 | Functio|n that i|
|00004e40| 6d 70 6c 65 6d 65 6e 74 | 73 20 45 53 43 20 6b 65 |mplement|s ESC ke|
|00004e50| 79 20 69 6e 20 56 69 70 | 65 72 20 65 6d 75 6c 61 |y in Vip|er emula|
|00004e60| 74 69 6f 6e 20 6f 66 20 | 56 69 2e 1f 0a 28 64 65 |tion of |Vi...(de|
|00004e70| 66 61 6c 69 61 73 20 27 | 76 69 70 65 72 2d 69 6e |falias '|viper-in|
|00004e80| 74 65 72 63 65 70 74 2d | 45 53 43 2d 6b 65 79 20 |tercept-|ESC-key |
|00004e90| 23 5b 6e 69 6c 20 22 c0 | c1 20 21 ae 81 c2 89 1b |#[nil ".|. !.....|
|00004ea0| c4 61 ab 9a 0d c6 61 ab | 83 c7 aa 91 0d c8 61 ab |.a....a.|......a.|
|00004eb0| 83 c9 aa 89 0d ca 61 ab | 83 cb aa 81 cc 13 cd 0b |......a.|........|
|00004ec0| 21 29 87 22 20 5b 6b 65 | 79 2d 62 69 6e 64 69 6e |!)." [ke|y-bindin|
|00004ed0| 67 20 76 69 70 65 72 2d | 65 6e 76 65 6c 6f 70 2d |g viper-|envelop-|
|00004ee0| 45 53 43 2d 6b 65 79 20 | 28 6c 61 6d 62 64 61 20 |ESC-key |(lambda |
|00004ef0| 6e 69 6c 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |nil (int|eractive|
|00004f00| 29 20 28 65 72 72 6f 72 | 20 22 22 29 29 20 63 6d |) (error| "")) cm|
|00004f10| 64 20 76 69 70 65 72 2d | 69 6e 74 65 72 63 65 70 |d viper-|intercep|
|00004f20| 74 2d 45 53 43 2d 6b 65 | 79 20 76 69 70 65 72 2d |t-ESC-ke|y viper-|
|00004f30| 63 75 72 72 65 6e 74 2d | 73 74 61 74 65 20 76 69 |current-|state vi|
|00004f40| 2d 73 74 61 74 65 20 76 | 69 70 65 72 2d 45 53 43 |-state v|iper-ESC|
|00004f50| 20 69 6e 73 65 72 74 2d | 73 74 61 74 65 20 76 69 | insert-|state vi|
|00004f60| 70 65 72 2d 65 78 69 74 | 2d 69 6e 73 65 72 74 2d |per-exit|-insert-|
|00004f70| 73 74 61 74 65 20 72 65 | 70 6c 61 63 65 2d 73 74 |state re|place-st|
|00004f80| 61 74 65 20 76 69 70 65 | 72 2d 72 65 70 6c 61 63 |ate vipe|r-replac|
|00004f90| 65 2d 73 74 61 74 65 2d | 65 78 69 74 2d 63 6d 64 |e-state-|exit-cmd|
|00004fa0| 20 76 69 70 65 72 2d 63 | 68 61 6e 67 65 2d 73 74 | viper-c|hange-st|
|00004fb0| 61 74 65 2d 74 6f 2d 76 | 69 20 63 61 6c 6c 2d 69 |ate-to-v|i call-i|
|00004fc0| 6e 74 65 72 61 63 74 69 | 76 65 6c 79 5d 20 33 20 |nteracti|vely] 3 |
|00004fd0| 28 23 24 20 2e 20 32 30 | 30 31 37 29 20 6e 69 6c |(#$ . 20|017) nil|
|00004fe0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 69 |]).(defa|lias 'vi|
|00004ff0| 70 65 72 2d 70 2d 76 61 | 6c 20 23 5b 28 61 72 67 |per-p-va|l #[(arg|
|00005000| 29 20 22 08 ac 82 c1 87 | 08 3a ab 8f 08 40 ab 86 |) ".....|.:...@..|
|00005010| 08 40 c2 6b ab 82 c1 87 | 08 40 87 08 87 22 20 5b |.@.k....|.@..." [|
|00005020| 61 72 67 20 31 20 28 6e | 69 6c 29 5d 20 32 5d 29 |arg 1 (n|il)] 2])|
|00005030| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 4e |.(byte-c|ode "..N|
|00005040| c2 73 ac 85 c3 c4 c0 5c | 22 88 c5 c0 c1 c6 23 87 |.s.....\|".....#.|
|00005050| 22 20 5b 76 69 70 65 72 | 2d 70 2d 76 61 6c 20 62 |" [viper|-p-val b|
|00005060| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 20 28 6e |yte-opti|mizer (n|
|00005070| 69 6c 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |il byte-|compile-|
|00005080| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 29 20 65 |inline-e|xpand) e|
|00005090| 72 72 6f 72 20 22 25 73 | 20 61 6c 72 65 61 64 79 |rror "%s| already|
|000050a0| 20 68 61 73 20 61 20 62 | 79 74 65 2d 6f 70 74 69 | has a b|yte-opti|
|000050b0| 6d 69 7a 65 72 2c 20 63 | 61 6e 27 74 20 6d 61 6b |mizer, c|an't mak|
|000050c0| 65 20 69 74 20 69 6e 6c | 69 6e 65 22 20 70 75 74 |e it inl|ine" put|
|000050d0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|000050e0| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 5d 20 34 29 0a |line-exp|and] 4).|
|000050f0| 28 64 65 66 61 6c 69 61 | 73 20 27 76 69 70 65 72 |(defalia|s 'viper|
|00005100| 2d 50 2d 76 61 6c 20 23 | 5b 28 61 72 67 29 20 22 |-P-val #|[(arg) "|
|00005110| 08 3a ab 83 08 40 87 08 | 87 22 20 5b 61 72 67 5d |.:...@..|." [arg]|
|00005120| 20 31 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 | 1]).(by|te-code |
|00005130| 22 c0 c1 4e c2 73 ac 85 | c3 c4 c0 5c 22 88 c5 c0 |"..N.s..|...\"...|
|00005140| c1 c6 23 87 22 20 5b 76 | 69 70 65 72 2d 50 2d 76 |..#." [v|iper-P-v|
|00005150| 61 6c 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |al byte-|optimize|
|00005160| 72 20 28 6e 69 6c 20 62 | 79 74 65 2d 63 6f 6d 70 |r (nil b|yte-comp|
|00005170| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00005180| 64 29 20 65 72 72 6f 72 | 20 22 25 73 20 61 6c 72 |d) error| "%s alr|
|00005190| 65 61 64 79 20 68 61 73 | 20 61 20 62 79 74 65 2d |eady has| a byte-|
|000051a0| 6f 70 74 69 6d 69 7a 65 | 72 2c 20 63 61 6e 27 74 |optimize|r, can't|
|000051b0| 20 6d 61 6b 65 20 69 74 | 20 69 6e 6c 69 6e 65 22 | make it| inline"|
|000051c0| 20 70 75 74 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c | put byt|e-compil|
|000051d0| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 5d |e-inline|-expand]|
|000051e0| 20 34 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 76 | 4).(def|alias 'v|
|000051f0| 69 70 65 72 2d 67 65 74 | 63 6f 6d 20 23 5b 28 61 |iper-get|com #[(a|
|00005200| 72 67 29 20 22 08 ac 82 | c1 87 08 3a ab 83 08 41 |rg) "...|...:...A|
|00005210| 87 c1 87 22 20 5b 61 72 | 67 20 6e 69 6c 5d 20 31 |..." [ar|g nil] 1|
|00005220| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00005230| c1 4e c2 73 ac 85 c3 c4 | c0 5c 22 88 c5 c0 c1 c6 |.N.s....|.\".....|
|00005240| 23 87 22 20 5b 76 69 70 | 65 72 2d 67 65 74 63 6f |#." [vip|er-getco|
|00005250| 6d 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |m byte-o|ptimizer|
|00005260| 20 28 6e 69 6c 20 62 79 | 74 65 2d 63 6f 6d 70 69 | (nil by|te-compi|
|00005270| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00005280| 29 20 65 72 72 6f 72 20 | 22 25 73 20 61 6c 72 65 |) error |"%s alre|
|00005290| 61 64 79 20 68 61 73 20 | 61 20 62 79 74 65 2d 6f |ady has |a byte-o|
|000052a0| 70 74 69 6d 69 7a 65 72 | 2c 20 63 61 6e 27 74 20 |ptimizer|, can't |
|000052b0| 6d 61 6b 65 20 69 74 20 | 69 6e 6c 69 6e 65 22 20 |make it |inline" |
|000052c0| 70 75 74 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |put byte|-compile|
|000052d0| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 5d 20 |-inline-|expand] |
|000052e0| 34 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 69 |4).(defa|lias 'vi|
|000052f0| 70 65 72 2d 67 65 74 43 | 6f 6d 20 23 5b 28 61 72 |per-getC|om #[(ar|
|00005300| 67 29 20 22 08 89 18 ac | 83 c1 aa 89 08 3a ab 84 |g) "....|.....:..|
|00005310| 08 41 aa 81 c1 29 89 1a | c3 6b ab 83 c3 aa 91 5c |.A...)..|.k.....\|
|00005320| 6e c4 6b ab 83 c5 aa 89 | 5c 6e c6 6b ab 83 c7 aa |n.k.....|\n.k....|
|00005330| 81 5c 6e 29 87 22 20 5b | 61 72 67 20 6e 69 6c 20 |.\n)." [|arg nil |
|00005340| 63 6f 6d 20 3f 63 20 3f | 64 20 3f 44 20 3f 79 20 |com ?c ?|d ?D ?y |
|00005350| 3f 59 5d 20 33 5d 29 0a | 28 64 65 66 61 6c 69 61 |?Y] 3]).|(defalia|
|00005360| 73 20 27 76 69 70 65 72 | 2d 70 72 65 66 69 78 2d |s 'viper|-prefix-|
|00005370| 61 72 67 2d 76 61 6c 75 | 65 20 23 5b 28 65 76 65 |arg-valu|e #[(eve|
|00005380| 6e 74 20 63 6f 6d 29 20 | 22 c0 c1 89 1a 1b 1c c5 |nt com) |".......|
|00005390| 0e 06 21 ab a2 0e 06 c7 | 59 ab 9c 0e 06 c8 58 ab |..!.....|Y.....X.|
|000053a0| 96 0b a8 ab 83 0b aa 81 | c9 ca 5f 0e 06 c7 5a 5c |........|.._...Z\|
|000053b0| 5c 13 cb 20 16 06 aa 58 | 0b 16 0c 0e 0d ab 87 0e |\.. ...X|........|
|000053c0| 0c 0e 0d 42 16 0c 0e 06 | ce 61 ab 8c cf 0e 0c 21 |...B....|.a.....!|
|000053d0| 88 cb 20 89 16 06 aa 70 | 0e 0d ac 92 0e 10 d1 61 |.. ....p|.......a|
|000053e0| ac d2 c5 0e 06 21 ab cc | d2 0e 06 21 ab c6 0e 06 |.....!..|...!....|
|000053f0| d3 61 ab 85 d4 16 06 aa | 9f 0e 06 d5 61 ab 85 d6 |.a......|....a...|
|00005400| 16 06 aa 94 0e 06 d7 61 | ab 85 d8 16 06 aa 89 0e |.......a|........|
|00005410| 06 d9 61 ab 83 da 16 06 | 0e 0d ae 82 0e 06 16 1b |..a.....|........|
|00005420| dc dd de 0e 06 44 44 21 | 89 12 0e 0c 21 88 c1 89 |.....DD!|....!...|
|00005430| 16 0c aa 84 df 0e 06 21 | 2b 87 22 20 5b 76 69 70 |.......!|+." [vip|
|00005440| 65 72 2d 64 69 67 69 74 | 2d 61 72 67 75 6d 65 6e |er-digit|-argumen|
|00005450| 74 20 6e 69 6c 20 66 75 | 6e 63 20 76 61 6c 75 65 |t nil fu|nc value|
|00005460| 20 76 69 70 65 72 2d 69 | 6e 74 65 72 6d 65 64 69 | viper-i|ntermedi|
|00005470| 61 74 65 2d 63 6f 6d 6d | 61 6e 64 20 76 69 70 65 |ate-comm|and vipe|
|00005480| 72 2d 63 68 61 72 61 63 | 74 65 72 70 20 65 76 65 |r-charac|terp eve|
|00005490| 6e 74 20 3f 30 20 3f 39 | 20 30 20 31 30 20 76 69 |nt ?0 ?9| 0 10 vi|
|000054a0| 70 65 72 2d 72 65 61 64 | 2d 65 76 65 6e 74 2d 63 |per-read|-event-c|
|000054b0| 6f 6e 76 65 72 74 2d 74 | 6f 2d 63 68 61 72 20 70 |onvert-t|o-char p|
|000054c0| 72 65 66 69 78 2d 61 72 | 67 20 63 6f 6d 20 3f 55 |refix-ar|g com ?U|
|000054d0| 20 76 69 70 65 72 2d 64 | 65 73 63 72 69 62 65 2d | viper-d|escribe-|
|000054e0| 61 72 67 20 76 69 70 65 | 72 2d 63 75 72 72 65 6e |arg vipe|r-curren|
|000054f0| 74 2d 73 74 61 74 65 20 | 76 69 2d 73 74 61 74 65 |t-state |vi-state|
|00005500| 20 76 69 70 65 72 2d 76 | 69 2d 63 6f 6d 6d 61 6e | viper-v|i-comman|
|00005510| 64 2d 70 20 72 65 74 75 | 72 6e 20 3f 5c 72 20 64 |d-p retu|rn ?\r d|
|00005520| 65 6c 65 74 65 20 3f 5c | 5e 3f 20 62 61 63 6b 73 |elete ?\|^? backs|
|00005530| 70 61 63 65 20 3f 5c 5e | 48 20 73 70 61 63 65 20 |pace ?\^|H space |
|00005540| 3f 5c 20 20 6c 61 73 74 | 2d 63 6f 6d 6d 61 6e 64 |?\ last|-command|
|00005550| 2d 63 68 61 72 20 76 69 | 70 65 72 2d 65 78 65 63 |-char vi|per-exec|
|00005560| 2d 66 6f 72 6d 2d 69 6e | 2d 76 69 20 6b 65 79 2d |-form-in|-vi key-|
|00005570| 62 69 6e 64 69 6e 67 20 | 63 68 61 72 2d 74 6f 2d |binding |char-to-|
|00005580| 73 74 72 69 6e 67 20 76 | 69 70 65 72 2d 73 65 74 |string v|iper-set|
|00005590| 2d 75 6e 72 65 61 64 2d | 63 6f 6d 6d 61 6e 64 2d |-unread-|command-|
|000055a0| 65 76 65 6e 74 73 5d 20 | 35 5d 29 0a 28 64 65 66 |events] |5]).(def|
|000055b0| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 70 72 65 |alias 'v|iper-pre|
|000055c0| 66 69 78 2d 61 72 67 2d | 63 6f 6d 20 23 5b 28 63 |fix-arg-|com #[(c|
|000055d0| 68 61 72 20 76 61 6c 75 | 65 20 63 6f 6d 29 20 22 |har valu|e com) "|
|000055e0| c0 c1 89 1a 1b 1c 0c ab | f2 0d c6 c7 c8 c9 ca cb |........|........|
|000055f0| cc cd ce cf d0 0e 11 af | 0c 73 ab df 0e 12 ab 94 |........|.s......|
|00005600| 0d d3 73 ab 84 d4 d5 21 | 88 0d 0e 12 42 16 12 c1 |..s....!|....B...|
|00005610| 89 14 aa 53 0d d6 73 ab | 8b 0d 16 12 d7 20 15 c1 |...S..s.|..... ..|
|00005620| 89 14 aa 43 0d cd 55 ab | 8b d7 20 d8 5c 5c 16 12 |...C..U.|.. .\\..|
|00005630| d7 20 15 aa 32 0d d0 55 | ab 9a d7 20 1e 19 da 0e |. ..2..U|... ....|
|00005640| 19 21 ab 86 0e 19 16 1b | aa 84 d4 d5 21 88 d7 20 |.!......|....!.. |
|00005650| 15 29 aa 13 0d 16 12 d7 | 20 15 aa 0b 0e 12 3a ac |.)......| .....:.|
|00005660| b8 0e 1c 0e 12 42 13 0d | dd 55 ab 8a de 0b 21 88 |.....B..|.U....!.|
|00005670| d7 20 89 15 aa 72 df 0d | 21 ac 93 e0 0d 21 ac 8e |. ...r..|!....!..|
|00005680| e1 0d 21 ac 89 0d c9 55 | ac 84 d4 d5 21 88 e2 e3 |..!....U|....!...|
|00005690| e4 0d 44 44 21 12 82 6d | 01 0e 12 40 e5 73 ab a8 |..DD!..m|...@.s..|
|000056a0| 0e 12 40 0e 12 41 1e 12 | 1d 0e 1c 0e 12 42 16 26 |..@..A..|.....B.&|
|000056b0| 0d ce 55 ab 87 e7 0e 26 | 21 88 aa 85 e8 0e 26 21 |..U....&|!.....&!|
|000056c0| 88 c1 16 26 2a 82 6d 01 | 0e 1c ac 83 e9 aa 82 0e |...&*.m.|........|
|000056d0| 1c 16 1c c1 16 26 0e 12 | ea 6b ab 89 eb 0e 1c ec |.....&..|.k......|
|000056e0| 42 21 88 aa e9 0e 12 ed | 6b ab 89 eb 0e 1c ee 42 |B!......|k......B|
|000056f0| 21 88 aa da 0e 12 ef 6b | ab 85 f0 20 88 aa cf 0e |!......k|... ....|
|00005700| 12 f1 6b ab 89 eb 0e 1c | f2 42 21 88 aa c0 0e 12 |..k.....|.B!.....|
|00005710| f3 6b ab 89 eb 0e 1c ca | 42 21 88 aa b1 0e 12 f4 |.k......|B!......|
|00005720| 6b ab 89 eb 0e 1c cb 42 | 21 88 aa a2 0e 12 f5 6b |k......B|!......k|
|00005730| ab 89 eb 0e 1c c9 42 21 | 88 aa 93 0e 12 f6 6b ab |......B!|......k.|
|00005740| 89 eb 0e 1c cc 42 21 88 | aa 84 d4 d5 21 88 5c 6e |.....B!.|....!.\n|
|00005750| ad 95 0d 16 37 f8 0e 39 | ab 85 fa 0d 21 aa 81 0d |....7..9|....!...|
|00005760| 21 16 3b c1 fc fd 8f 2b | 87 22 20 5b 74 20 6e 69 |!.;....+|." [t ni|
|00005770| 6c 20 63 6d 64 2d 74 6f | 2d 65 78 65 63 2d 61 74 |l cmd-to|-exec-at|
|00005780| 2d 65 6e 64 20 63 6d 64 | 2d 69 6e 66 6f 20 63 6f |-end cmd|-info co|
|00005790| 6e 74 20 63 68 61 72 20 | 3f 63 20 3f 64 20 3f 79 |nt char |?c ?d ?y|
|000057a0| 20 3f 5c 21 20 3f 5c 3c | 20 3f 5c 3e 20 3f 5c 3d | ?\! ?\<| ?\> ?\=|
|000057b0| 20 3f 5c 23 20 3f 72 20 | 3f 52 20 3f 5c 22 20 76 | ?\# ?r |?R ?\" v|
|000057c0| 69 70 65 72 2d 62 75 66 | 66 65 72 2d 73 65 61 72 |iper-buf|fer-sear|
|000057d0| 63 68 2d 63 68 61 72 20 | 63 6f 6d 20 28 3f 5c 23 |ch-char |com (?\#|
|000057e0| 20 3f 5c 22 29 20 65 72 | 72 6f 72 20 22 22 20 28 | ?\") er|ror "" (|
|000057f0| 3f 5c 21 20 3f 5c 3d 29 | 20 72 65 61 64 2d 63 68 |?\! ?\=)| read-ch|
|00005800| 61 72 20 31 32 38 20 72 | 65 67 20 76 69 70 65 72 |ar 128 r|eg viper|
|00005810| 2d 76 61 6c 69 64 2d 72 | 65 67 69 73 74 65 72 20 |-valid-r|egister |
|00005820| 76 69 70 65 72 2d 75 73 | 65 2d 72 65 67 69 73 74 |viper-us|e-regist|
|00005830| 65 72 20 76 61 6c 75 65 | 20 3f 55 20 76 69 70 65 |er value| ?U vipe|
|00005840| 72 2d 64 65 73 63 72 69 | 62 65 2d 61 72 67 20 76 |r-descri|be-arg v|
|00005850| 69 70 65 72 2d 6d 6f 76 | 65 6d 65 6e 74 2d 63 6f |iper-mov|ement-co|
|00005860| 6d 6d 61 6e 64 2d 70 20 | 76 69 70 65 72 2d 64 69 |mmand-p |viper-di|
|00005870| 67 69 74 2d 63 6f 6d 6d | 61 6e 64 2d 70 20 76 69 |git-comm|and-p vi|
|00005880| 70 65 72 2d 72 65 67 73 | 75 66 66 69 78 2d 63 6f |per-regs|uffix-co|
|00005890| 6d 6d 61 6e 64 2d 70 20 | 76 69 70 65 72 2d 65 78 |mmand-p |viper-ex|
|000058a0| 65 63 2d 66 6f 72 6d 2d | 69 6e 2d 76 69 20 6b 65 |ec-form-|in-vi ke|
|000058b0| 79 2d 62 69 6e 64 69 6e | 67 20 63 68 61 72 2d 74 |y-bindin|g char-t|
|000058c0| 6f 2d 73 74 72 69 6e 67 | 20 28 3f 72 20 3f 52 29 |o-string| (?r ?R)|
|000058d0| 20 70 72 65 66 69 78 2d | 61 72 67 20 76 69 70 65 | prefix-|arg vipe|
|000058e0| 72 2d 72 65 67 69 6f 6e | 20 76 69 70 65 72 2d 52 |r-region| viper-R|
|000058f0| 65 67 69 6f 6e 20 31 20 | 28 3f 63 20 2e 20 3f 63 |egion 1 |(?c . ?c|
|00005900| 29 20 76 69 70 65 72 2d | 6c 69 6e 65 20 3f 43 20 |) viper-|line ?C |
|00005910| 28 3f 64 20 2e 20 3f 64 | 29 20 3f 44 20 28 3f 64 |(?d . ?d|) ?D (?d|
|00005920| 20 2e 20 3f 79 29 20 76 | 69 70 65 72 2d 79 61 6e | . ?y) v|iper-yan|
|00005930| 6b 2d 64 65 66 75 6e 20 | 28 3f 79 20 2e 20 3f 79 |k-defun |(?y . ?y|
|00005940| 29 20 3f 59 20 28 3f 5c | 3c 20 2e 20 3f 5c 3c 29 |) ?Y (?\|< . ?\<)|
|00005950| 20 28 3f 5c 3e 20 2e 20 | 3f 5c 3e 29 20 28 3f 5c | (?\> . |?\>) (?\|
|00005960| 21 20 2e 20 3f 5c 21 29 | 20 28 3f 5c 3d 20 2e 20 |! . ?\!)| (?\= . |
|00005970| 3f 5c 3d 29 20 6c 61 73 | 74 2d 63 6f 6d 6d 61 6e |?\=) las|t-comman|
|00005980| 64 2d 63 68 61 72 20 76 | 69 70 65 72 2d 63 6f 70 |d-char v|iper-cop|
|00005990| 79 2d 65 76 65 6e 74 20 | 76 69 70 65 72 2d 78 65 |y-event |viper-xe|
|000059a0| 6d 61 63 73 2d 70 20 63 | 68 61 72 61 63 74 65 72 |macs-p c|haracter|
|000059b0| 2d 74 6f 2d 65 76 65 6e | 74 20 6c 61 73 74 2d 63 |-to-even|t last-c|
|000059c0| 6f 6d 6d 61 6e 64 2d 65 | 76 65 6e 74 20 28 66 75 |ommand-e|vent (fu|
|000059d0| 6e 63 61 6c 6c 20 63 6d | 64 2d 74 6f 2d 65 78 65 |ncall cm|d-to-exe|
|000059e0| 63 2d 61 74 2d 65 6e 64 | 20 63 6d 64 2d 69 6e 66 |c-at-end| cmd-inf|
|000059f0| 6f 29 20 28 28 65 72 72 | 6f 72 20 28 65 72 72 6f |o) ((err|or (erro|
|00005a00| 72 20 22 22 29 29 29 5d | 20 31 34 5d 29 0a 28 64 |r "")))]| 14]).(d|
|00005a10| 65 66 61 6c 69 61 73 20 | 27 76 69 70 65 72 2d 64 |efalias |'viper-d|
|00005a20| 65 73 63 72 69 62 65 2d | 61 72 67 20 23 5b 28 61 |escribe-|arg #[(a|
|00005a30| 72 67 29 20 22 c0 89 19 | 1a 0b 89 1b 3a ab 84 0b |rg) "...|....:...|
|00005a40| 40 aa 81 0b 29 12 0b 89 | 1b ac 83 c0 aa 89 0b 3a |@...)...|.......:|
|00005a50| ab 84 0b 41 aa 81 c0 29 | 11 5c 6e ac 8e 09 ac 85 |...A...)|.\n.....|
|00005a60| c4 c5 21 aa 94 c4 c6 09 | 5c 22 aa 8e 09 ac 86 c4 |..!.....|\"......|
|00005a70| c7 5c 6e 5c 22 aa 85 c4 | c8 5c 6e 09 23 2a 87 22 |.\n\"...|.\n.#*."|
|00005a80| 20 5b 6e 69 6c 20 63 6f | 6d 20 76 61 6c 20 61 72 | [nil co|m val ar|
|00005a90| 67 20 6d 65 73 73 61 67 | 65 20 22 56 61 6c 75 65 |g messag|e "Value|
|00005aa0| 20 69 73 20 6e 69 6c 2c | 20 61 6e 64 20 63 6f 6d | is nil,| and com|
|00005ab0| 6d 61 6e 64 20 69 73 20 | 6e 69 6c 22 20 22 56 61 |mand is |nil" "Va|
|00005ac0| 6c 75 65 20 69 73 20 6e | 69 6c 2c 20 61 6e 64 20 |lue is n|il, and |
|00005ad0| 63 6f 6d 6d 61 6e 64 20 | 69 73 20 60 25 63 27 22 |command |is `%c'"|
|00005ae0| 20 22 56 61 6c 75 65 20 | 69 73 20 60 25 64 27 2c | "Value |is `%d',|
|00005af0| 20 61 6e 64 20 63 6f 6d | 6d 61 6e 64 20 69 73 20 | and com|mand is |
|00005b00| 6e 69 6c 22 20 22 56 61 | 6c 75 65 20 69 73 20 60 |nil" "Va|lue is `|
|00005b10| 25 64 27 2c 20 61 6e 64 | 20 63 6f 6d 6d 61 6e 64 |%d', and| command|
|00005b20| 20 69 73 20 60 25 63 27 | 22 5d 20 35 5d 29 0a 23 | is `%c'|"] 5]).#|
|00005b30| 40 34 36 20 42 65 67 69 | 6e 20 6e 75 6d 65 72 69 |@46 Begi|n numeri|
|00005b40| 63 20 61 72 67 75 6d 65 | 6e 74 20 66 6f 72 20 74 |c argume|nt for t|
|00005b50| 68 65 20 6e 65 78 74 20 | 63 6f 6d 6d 61 6e 64 2e |he next |command.|
|00005b60| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 69 70 |..(defal|ias 'vip|
|00005b70| 65 72 2d 64 69 67 69 74 | 2d 61 72 67 75 6d 65 6e |er-digit|-argumen|
|00005b80| 74 20 23 5b 28 61 72 67 | 29 20 22 08 ab 82 c1 12 |t #[(arg|) ".....|
|00005b90| c3 0c 0d 3a ad 82 0d 41 | 5c 22 87 22 20 5b 76 69 |...:...A|\"." [vi|
|00005ba0| 70 65 72 2d 78 65 6d 61 | 63 73 2d 70 20 74 20 7a |per-xema|cs-p t z|
|00005bb0| 6d 61 63 73 2d 72 65 67 | 69 6f 6e 2d 73 74 61 79 |macs-reg|ion-stay|
|00005bc0| 73 20 76 69 70 65 72 2d | 70 72 65 66 69 78 2d 61 |s viper-|prefix-a|
|00005bd0| 72 67 2d 76 61 6c 75 65 | 20 6c 61 73 74 2d 63 6f |rg-value| last-co|
|00005be0| 6d 6d 61 6e 64 2d 63 68 | 61 72 20 61 72 67 5d 20 |mmand-ch|ar arg] |
|00005bf0| 33 20 28 23 24 20 2e 20 | 32 33 33 34 38 29 20 22 |3 (#$ . |23348) "|
|00005c00| 50 22 5d 29 0a 23 40 34 | 31 20 41 63 63 65 70 74 |P"]).#@4|1 Accept|
|00005c10| 20 61 20 6d 6f 74 69 6f | 6e 20 63 6f 6d 6d 61 6e | a motio|n comman|
|00005c20| 64 20 61 73 20 61 6e 20 | 61 72 67 75 6d 65 6e 74 |d as an |argument|
|00005c30| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 69 |...(defa|lias 'vi|
|00005c40| 70 65 72 2d 63 6f 6d 6d | 61 6e 64 2d 61 72 67 75 |per-comm|and-argu|
|00005c50| 6d 65 6e 74 20 23 5b 28 | 61 72 67 29 20 22 c0 19 |ment #[(|arg) "..|
|00005c60| c2 c3 c4 8f 88 c5 20 29 | 87 22 20 5b 76 69 70 65 |...... )|." [vipe|
|00005c70| 72 2d 63 6f 6d 6d 61 6e | 64 2d 61 72 67 75 6d 65 |r-comman|d-argume|
|00005c80| 6e 74 20 76 69 70 65 72 | 2d 69 6e 74 65 72 6d 65 |nt viper|-interme|
|00005c90| 64 69 61 74 65 2d 63 6f | 6d 6d 61 6e 64 20 6e 69 |diate-co|mmand ni|
|00005ca0| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 09 |l (byte-|code "..|
|00005cb0| 5c 6e ac 83 c3 aa 92 5c | 6e 3a ab 84 5c 6e 40 aa |\n.....\|n:..\n@.|
|00005cc0| 8a 5c 6e a8 ab 83 5c 6e | aa 83 c4 0d 21 5c 6e ac |.\n...\n|....!\n.|
|00005cd0| 83 c3 aa 92 5c 6e 3a ab | 84 5c 6e 41 aa 8a 5c 6e |....\n:.|.\nA..\n|
|00005ce0| a8 ab 83 c3 aa 83 c4 0d | 21 23 87 22 20 5b 76 69 |........|!#." [vi|
|00005cf0| 70 65 72 2d 70 72 65 66 | 69 78 2d 61 72 67 2d 63 |per-pref|ix-arg-c|
|00005d00| 6f 6d 20 6c 61 73 74 2d | 63 6f 6d 6d 61 6e 64 2d |om last-|command-|
|00005d10| 63 68 61 72 20 61 72 67 | 20 6e 69 6c 20 65 72 72 |char arg| nil err|
|00005d20| 6f 72 20 76 69 70 65 72 | 2d 49 6e 76 61 6c 69 64 |or viper|-Invalid|
|00005d30| 43 6f 6d 6d 61 6e 64 41 | 72 67 75 6d 65 6e 74 5d |CommandA|rgument]|
|00005d40| 20 35 29 20 28 28 71 75 | 69 74 20 28 62 79 74 65 | 5) ((qu|it (byte|
|00005d50| 2d 63 6f 64 65 20 22 c0 | 11 c2 c3 c0 5c 22 87 22 |-code ".|....\"."|
|00005d60| 20 5b 6e 69 6c 20 76 69 | 70 65 72 2d 75 73 65 2d | [nil vi|per-use-|
|00005d70| 72 65 67 69 73 74 65 72 | 20 73 69 67 6e 61 6c 20 |register| signal |
|00005d80| 71 75 69 74 5d 20 33 29 | 29 29 20 76 69 70 65 72 |quit] 3)|)) viper|
|00005d90| 2d 64 65 61 63 74 69 76 | 61 74 65 2d 6d 61 72 6b |-deactiv|ate-mark|
|00005da0| 5d 20 33 20 28 23 24 20 | 2e 20 32 33 35 36 32 29 |] 3 (#$ |. 23562)|
|00005db0| 20 22 50 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "P"]).(|defalias|
|00005dc0| 20 27 76 69 70 65 72 2d | 61 70 70 65 6e 64 2d 74 | 'viper-|append-t|
|00005dd0| 6f 2d 72 65 67 69 73 74 | 65 72 20 23 5b 28 72 65 |o-regist|er #[(re|
|00005de0| 67 20 73 74 61 72 74 20 | 65 6e 64 29 20 22 c0 09 |g start |end) "..|
|00005df0| c2 09 21 3b ab 85 c2 09 | 21 aa 81 c3 0c 0d 7b 50 |..!;....|!.....{P|
|00005e00| 5c 22 87 22 20 5b 73 65 | 74 2d 72 65 67 69 73 74 |\"." [se|t-regist|
|00005e10| 65 72 20 72 65 67 20 67 | 65 74 2d 72 65 67 69 73 |er reg g|et-regis|
|00005e20| 74 65 72 20 22 22 20 73 | 74 61 72 74 20 65 6e 64 |ter "" s|tart end|
|00005e30| 5d 20 35 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |] 5]).(b|yte-code|
|00005e40| 20 22 c0 c1 4e c2 73 ac | 85 c3 c4 c0 5c 22 88 c5 | "..N.s.|....\"..|
|00005e50| c0 c1 c6 23 87 22 20 5b | 76 69 70 65 72 2d 61 70 |...#." [|viper-ap|
|00005e60| 70 65 6e 64 2d 74 6f 2d | 72 65 67 69 73 74 65 72 |pend-to-|register|
|00005e70| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 20 | byte-op|timizer |
|00005e80| 28 6e 69 6c 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |(nil byt|e-compil|
|00005e90| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 29 |e-inline|-expand)|
|00005ea0| 20 65 72 72 6f 72 20 22 | 25 73 20 61 6c 72 65 61 | error "|%s alrea|
|00005eb0| 64 79 20 68 61 73 20 61 | 20 62 79 74 65 2d 6f 70 |dy has a| byte-op|
|00005ec0| 74 69 6d 69 7a 65 72 2c | 20 63 61 6e 27 74 20 6d |timizer,| can't m|
|00005ed0| 61 6b 65 20 69 74 20 69 | 6e 6c 69 6e 65 22 20 70 |ake it i|nline" p|
|00005ee0| 75 74 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |ut byte-|compile-|
|00005ef0| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 5d 20 34 |inline-e|xpand] 4|
|00005f00| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 69 70 |).(defal|ias 'vip|
|00005f10| 65 72 2d 73 61 76 65 2d | 6c 61 73 74 2d 69 6e 73 |er-save-|last-ins|
|00005f20| 65 72 74 69 6f 6e 20 23 | 5b 28 62 65 67 20 65 6e |ertion #|[(beg en|
|00005f30| 64 29 20 22 c0 c1 c2 8f | 88 0b 0c 7b 15 0e 06 47 |d) "....|...{...G|
|00005f40| c7 57 ac 87 c8 0e 06 9b | 0d a0 88 0e 09 3f ae 93 |.W......|.....?..|
|00005f50| ca 0e 09 21 ae 8d c8 cb | 0e 09 21 9b 0d a0 88 cc |...!....|..!.....|
|00005f60| 0e 09 21 87 22 20 5b 6e | 69 6c 20 28 62 79 74 65 |..!." [n|il (byte|
|00005f70| 2d 63 6f 64 65 20 22 08 | 09 7b 12 c3 87 22 20 5b |-code ".|.{..." [|
|00005f80| 62 65 67 20 65 6e 64 20 | 76 69 70 65 72 2d 6c 61 |beg end |viper-la|
|00005f90| 73 74 2d 69 6e 73 65 72 | 74 69 6f 6e 20 6e 69 6c |st-inser|tion nil|
|00005fa0| 5d 20 32 29 20 28 28 65 | 72 72 6f 72 20 28 62 79 |] 2) ((e|rror (by|
|00005fb0| 74 65 2d 63 6f 64 65 20 | 22 c0 11 c0 87 22 20 5b |te-code |"...." [|
|00005fc0| 6e 69 6c 20 76 69 70 65 | 72 2d 6c 61 73 74 2d 69 |nil vipe|r-last-i|
|00005fd0| 6e 73 65 72 74 69 6f 6e | 5d 20 31 29 29 29 20 62 |nsertion|] 1))) b|
|00005fe0| 65 67 20 65 6e 64 20 76 | 69 70 65 72 2d 6c 61 73 |eg end v|iper-las|
|00005ff0| 74 2d 69 6e 73 65 72 74 | 69 6f 6e 20 76 69 70 65 |t-insert|ion vipe|
|00006000| 72 2d 64 2d 63 6f 6d 20 | 35 20 34 20 76 69 70 65 |r-d-com |5 4 vipe|
|00006010| 72 2d 63 6f 6d 6d 61 6e | 64 2d 72 69 6e 67 20 72 |r-comman|d-ring r|
|00006020| 69 6e 67 2d 65 6d 70 74 | 79 2d 70 20 76 69 70 65 |ing-empt|y-p vipe|
|00006030| 72 2d 63 75 72 72 65 6e | 74 2d 72 69 6e 67 2d 69 |r-curren|t-ring-i|
|00006040| 74 65 6d 20 76 69 70 65 | 72 2d 63 6c 65 61 6e 75 |tem vipe|r-cleanu|
|00006050| 70 2d 72 69 6e 67 5d 20 | 33 5d 29 0a 23 40 37 35 |p-ring] |3]).#@75|
|00006060| 20 49 6e 73 65 72 74 73 | 20 74 68 65 20 74 65 78 | Inserts| the tex|
|00006070| 74 20 73 61 76 65 64 20 | 62 79 20 74 68 65 20 70 |t saved |by the p|
|00006080| 72 65 76 69 6f 75 73 20 | 76 69 70 65 72 2d 73 61 |revious |viper-sa|
|00006090| 76 65 2d 6c 61 73 74 2d | 69 6e 73 65 72 74 69 6f |ve-last-|insertio|
|000060a0| 6e 20 63 6f 6d 6d 61 6e | 64 2e 1f 0a 28 64 65 66 |n comman|d...(def|
|000060b0| 61 6c 69 61 73 20 27 76 | 69 70 65 72 2d 79 61 6e |alias 'v|iper-yan|
|000060c0| 6b 2d 6c 61 73 74 2d 69 | 6e 73 65 72 74 69 6f 6e |k-last-i|nsertion|
|000060d0| 20 23 5b 6e 69 6c 20 22 | c0 c1 c2 8f 87 22 20 5b | #[nil "|....." [|
|000060e0| 6e 69 6c 20 28 69 6e 73 | 65 72 74 20 76 69 70 65 |nil (ins|ert vipe|
|000060f0| 72 2d 6c 61 73 74 2d 69 | 6e 73 65 72 74 69 6f 6e |r-last-i|nsertion|
|00006100| 29 20 28 28 65 72 72 6f | 72 29 29 5d 20 33 20 28 |) ((erro|r))] 3 (|
|00006110| 23 24 20 2e 20 32 34 36 | 37 33 29 5d 29 0a 28 62 |#$ . 246|73)]).(b|
|00006120| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4e c2 73 ac |yte-code| "..N.s.|
|00006130| 85 c3 c4 c0 5c 22 88 c5 | c0 c1 c6 23 87 22 20 5b |....\"..|...#." [|
|00006140| 76 69 70 65 72 2d 79 61 | 6e 6b 2d 6c 61 73 74 2d |viper-ya|nk-last-|
|00006150| 69 6e 73 65 72 74 69 6f | 6e 20 62 79 74 65 2d 6f |insertio|n byte-o|
|00006160| 70 74 69 6d 69 7a 65 72 | 20 28 6e 69 6c 20 62 79 |ptimizer| (nil by|
|00006170| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 69 6e 6c 69 6e |te-compi|le-inlin|
|00006180| 65 2d 65 78 70 61 6e 64 | 29 20 65 72 72 6f 72 20 |e-expand|) error |
|00006190| 22 25 73 20 61 6c 72 65 | 61 64 79 20 68 61 73 20 |"%s alre|ady has |
|000061a0| 61 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |a byte-o|ptimizer|
|000061b0| 2c 20 63 61 6e 27 74 20 | 6d 61 6b 65 20 69 74 20 |, can't |make it |
|000061c0| 69 6e 6c 69 6e 65 22 20 | 70 75 74 20 62 79 74 65 |inline" |put byte|
|000061d0| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|000061e0| 65 78 70 61 6e 64 5d 20 | 34 29 0a 28 64 65 66 61 |expand] |4).(defa|
|000061f0| 6c 69 61 73 20 27 76 69 | 70 65 72 2d 65 78 65 63 |lias 'vi|per-exec|
|00006200| 2d 63 68 61 6e 67 65 20 | 23 5b 28 6d 2d 63 6f 6d |-change |#[(m-com|
|00006210| 20 63 6f 6d 29 20 22 c0 | 09 21 ab 85 c2 09 21 ac | com) ".|.!....!.|
|00006220| 85 09 60 70 93 88 6c ab | 85 09 60 55 ac 85 09 64 |..`p..l.|..`U...d|
|00006230| 55 ab 87 c3 63 88 c4 c5 | 21 88 09 60 55 ab 83 c6 |U...c...|!..`U...|
|00006240| 20 88 c7 09 21 88 0e 08 | c9 61 ab 87 ca cb cc 21 | ...!...|.a.....!|
|00006250| 60 5c 22 88 60 cb cc 21 | 57 ab 83 cd 20 88 68 ce |`\".`..!|W... .h.|
|00006260| 61 ab 83 cf 20 88 0e 10 | d1 55 ab 87 d2 cb cc 21 |a... ...|.U.....!|
|00006270| 60 5c 22 87 d3 cb cc 21 | 60 5c 22 87 22 20 5b 6d |`\"....!|`\"." [m|
|00006280| 61 72 6b 65 72 70 20 76 | 69 70 65 72 2d 63 6f 6d |arkerp v|iper-com|
|00006290| 2d 70 6f 69 6e 74 20 6d | 61 72 6b 65 72 2d 70 6f |-point m|arker-po|
|000062a0| 73 69 74 69 6f 6e 20 22 | 20 22 20 62 61 63 6b 77 |sition "| " backw|
|000062b0| 61 72 64 2d 63 68 61 72 | 20 31 20 76 69 70 65 72 |ard-char| 1 viper|
|000062c0| 2d 66 6f 72 77 61 72 64 | 2d 63 68 61 72 2d 63 61 |-forward|-char-ca|
|000062d0| 72 65 66 75 6c 6c 79 20 | 73 65 74 2d 6d 61 72 6b |refully |set-mark|
|000062e0| 20 6d 2d 63 6f 6d 20 76 | 69 70 65 72 2d 6e 65 78 | m-com v|iper-nex|
|000062f0| 74 2d 6c 69 6e 65 2d 61 | 74 2d 62 6f 6c 20 76 69 |t-line-a|t-bol vi|
|00006300| 70 65 72 2d 65 6e 6c 61 | 72 67 65 2d 72 65 67 69 |per-enla|rge-regi|
|00006310| 6f 6e 20 6d 61 72 6b 20 | 74 20 65 78 63 68 61 6e |on mark |t exchan|
|00006320| 67 65 2d 70 6f 69 6e 74 | 2d 61 6e 64 2d 6d 61 72 |ge-point|-and-mar|
|00006330| 6b 20 3f 5c 6e 20 76 69 | 70 65 72 2d 62 61 63 6b |k ?\n vi|per-back|
|00006340| 77 61 72 64 2d 63 68 61 | 72 2d 63 61 72 65 66 75 |ward-cha|r-carefu|
|00006350| 6c 6c 79 20 63 6f 6d 20 | 3f 63 20 76 69 70 65 72 |lly com |?c viper|
|00006360| 2d 63 68 61 6e 67 65 20 | 76 69 70 65 72 2d 63 68 |-change |viper-ch|
|00006370| 61 6e 67 65 2d 73 75 62 | 72 5d 20 33 5d 29 0a 28 |ange-sub|r] 3]).(|
|00006380| 64 65 66 61 6c 69 61 73 | 20 27 76 69 70 65 72 2d |defalias| 'viper-|
|00006390| 65 78 65 63 2d 43 68 61 | 6e 67 65 20 23 5b 28 6d |exec-Cha|nge #[(m|
|000063a0| 2d 63 6f 6d 20 63 6f 6d | 29 20 22 8a c0 09 21 88 |-com com|) "...!.|
|000063b0| c2 c3 c4 21 60 5c 22 88 | 0d ab c9 c6 0d c7 5c 22 |...!`\".|......\"|
|000063c0| ab 8b c8 0d c3 c4 21 60 | c9 24 88 aa b6 c6 0d ca |......!`|.$......|
|000063d0| 5c 22 ab a8 0d 97 c3 c4 | 21 60 1e 0b 1e 0c 1e 0d |\"......|!`......|
|000063e0| ce 0e 0d cf 0e 0d 21 3b | ab 86 cf 0e 0d 21 aa 81 |......!;|.....!..|
|000063f0| d0 0e 0c 0e 0b 7b 50 5c | 22 88 2b aa 88 c9 15 d1 |.....{P\|".+.....|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
